Spiekermayo
XLDnaute Nouveau
Bonjour a tous,
Je debute en VBA et aurais besoin de vos lumieres sur un sujet qui me bloque serieusement, j'ai essaye de modifier mon code ci-dessous je ne m'en sors pas depuis deux jours.
J'en viens au fait:
Je veux reporter le contenu de 3 cellules de mon sheet(1) soient cells(i,1),cells (i,2),cells(i,4) dans les cellules G1, I1, G3 de l'onglet correspondant au nom contenu en cells(i,9) de mon sheet(1).
Le code fonctionne mais pour un seul onglet (ex: i=2 to n) ou mes 3 cellules sont correctement reportees dans l'onglet voulu, par contre j'ai un probleme de boucle car elle ne s'incremente pas de 1 en 1 ( je ne sais pas comment faire)
Voici ce que j'ai tappe et qui fonctionne pour un onglet
Si vous avez une piste a explorer je suis preneur..... bonne journee
Sub reportsystaubtag()
Dim n As Integer
Dim i As Integer
For Each Sheet In Worksheets
For i = 2 To n
i= i + 1
Next i
If Sheet.Name = Sheets("Sheet1").cells(i, 9).Value Then
Sheet.Range("G1") = Sheets("Sheet1").cells(i, 1).Value
Sheet.Range("I1") = Sheets("Sheet1").cells(i, 2).Value
Sheet.Range("G3") = Sheets("Sheet1").cells(i, 4).Value
End If
Next
End Sub
Je debute en VBA et aurais besoin de vos lumieres sur un sujet qui me bloque serieusement, j'ai essaye de modifier mon code ci-dessous je ne m'en sors pas depuis deux jours.
J'en viens au fait:
Je veux reporter le contenu de 3 cellules de mon sheet(1) soient cells(i,1),cells (i,2),cells(i,4) dans les cellules G1, I1, G3 de l'onglet correspondant au nom contenu en cells(i,9) de mon sheet(1).
Le code fonctionne mais pour un seul onglet (ex: i=2 to n) ou mes 3 cellules sont correctement reportees dans l'onglet voulu, par contre j'ai un probleme de boucle car elle ne s'incremente pas de 1 en 1 ( je ne sais pas comment faire)
Voici ce que j'ai tappe et qui fonctionne pour un onglet
Si vous avez une piste a explorer je suis preneur..... bonne journee
Sub reportsystaubtag()
Dim n As Integer
Dim i As Integer
For Each Sheet In Worksheets
For i = 2 To n
i= i + 1
Next i
If Sheet.Name = Sheets("Sheet1").cells(i, 9).Value Then
Sheet.Range("G1") = Sheets("Sheet1").cells(i, 1).Value
Sheet.Range("I1") = Sheets("Sheet1").cells(i, 2).Value
Sheet.Range("G3") = Sheets("Sheet1").cells(i, 4).Value
End If
Next
End Sub