Tout d'abord Bonjour le forum .
Je débute en VBA et je peine beaucoup sur une partie de mon code .
J'aimerais pouvoir avancer case par case dans le sens de la ligne et qu'a chaque mot rencontré ( et seulement les mots ) je puisse les copier-coller un a un , dans une unique colonne dans une autre feuille , et ainsi de suite jusqu'a la fin de la feuille .
Actuellement j'ai ceci :
[cpp]
Sub CopierColler
For i = 1 To 54550
If Application.Worksheets("Production Data").Cells(1, i) = vbString Then
Application.Worksheets("TabTraduction").Range("A1" & ":A" & i).Value = Application.Worksheets("Production Data").Cells(1 , i).Value
End If
Next i
End Sub
[/cpp]
Dans mon code actuel , je vois bien sûr de nombreux problèmes , tout d'abord le "Cells" ne semble pas accepter par mon application.ws , le problème c'est que je ne sais pas comment lire ligne par ligne avec un Range .
De plus , je ne sais pas comment faire pour aller a la ligne suivante .
Pour finir , mon code me retourne toujours la même valeur en boucle dans ma colonne .
Si quelq'un a un peu de temps pour m'aiguiller ou me proposer un code , je lui serait très reconnaissant car je ne voit vraiment pas du tout comment faire et cela fait des jours que je bloque dessus .
Désolé pour le pavé .
NoirCafe , débutant déspéré
Je débute en VBA et je peine beaucoup sur une partie de mon code .
J'aimerais pouvoir avancer case par case dans le sens de la ligne et qu'a chaque mot rencontré ( et seulement les mots ) je puisse les copier-coller un a un , dans une unique colonne dans une autre feuille , et ainsi de suite jusqu'a la fin de la feuille .
Actuellement j'ai ceci :
[cpp]
Sub CopierColler
For i = 1 To 54550
If Application.Worksheets("Production Data").Cells(1, i) = vbString Then
Application.Worksheets("TabTraduction").Range("A1" & ":A" & i).Value = Application.Worksheets("Production Data").Cells(1 , i).Value
End If
Next i
End Sub
[/cpp]
Dans mon code actuel , je vois bien sûr de nombreux problèmes , tout d'abord le "Cells" ne semble pas accepter par mon application.ws , le problème c'est que je ne sais pas comment lire ligne par ligne avec un Range .
De plus , je ne sais pas comment faire pour aller a la ligne suivante .
Pour finir , mon code me retourne toujours la même valeur en boucle dans ma colonne .
Si quelq'un a un peu de temps pour m'aiguiller ou me proposer un code , je lui serait très reconnaissant car je ne voit vraiment pas du tout comment faire et cela fait des jours que je bloque dessus .
Désolé pour le pavé .
NoirCafe , débutant déspéré