Deplacement avec Offset / VBA
Résolu
loulou
-
loulou -
loulou -
Bonjour,
Dans une macro, sous Excel 2003, après avoir écrit une valeur dans une cellule, je souhaite réécrire cette même écriture 3 colonnes à droite, puis encore 3 colonnes à droite, puis encore 3 colonnes à droite...
Ce qui me donne, dans un exemple simplifié:
If A = "toto" then
ecrire "toto" dans la colonne B5
end if
activecell.offset(0, 3) = "toto"
Or, le fait que mon offset n'est pas dans une boucle pour le moment, dans l'état le ActiveCell décale de 3 à partir de la dernière cellule où j'ai cliqué.
Ce que je souhaite faire, c'est décaler de 3 mais à partir de ma dernière écriture, soit B5 dans mon petit exemple.
Avez-vous une idée pour résoudre ce souci ?
Merci
Dans une macro, sous Excel 2003, après avoir écrit une valeur dans une cellule, je souhaite réécrire cette même écriture 3 colonnes à droite, puis encore 3 colonnes à droite, puis encore 3 colonnes à droite...
Ce qui me donne, dans un exemple simplifié:
If A = "toto" then
ecrire "toto" dans la colonne B5
end if
activecell.offset(0, 3) = "toto"
Or, le fait que mon offset n'est pas dans une boucle pour le moment, dans l'état le ActiveCell décale de 3 à partir de la dernière cellule où j'ai cliqué.
Ce que je souhaite faire, c'est décaler de 3 mais à partir de ma dernière écriture, soit B5 dans mon petit exemple.
Avez-vous une idée pour résoudre ce souci ?
Merci
A voir également:
- Deplacement avec Offset / VBA
- Historique déplacement google - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Cannot access offset of type string on string - Forum PHP
3 réponses
Bonjour,
Facile,
Il suffit de calculer l'offset avec une formule comme indiqué dans cet exemple:
Sub test()
Dim i As Integer
For i = 1 To 5
ActiveCell.Offset(0, i * 3) = "toto"
Next
End Sub
Facile,
Il suffit de calculer l'offset avec une formule comme indiqué dans cet exemple:
Sub test()
Dim i As Integer
For i = 1 To 5
ActiveCell.Offset(0, i * 3) = "toto"
Next
End Sub
