Appliquer une marco VB sur des champs non successifs
Résolu
T.yangui
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai besoin d'appliquer une marco VB sur des champs non successifs, mon marco initial est :
Range("B486").Select
ActiveCell.FormulaR1C1 = "bonjour"
End Sub
je veux rendre le macro de type variable qui consiste à écrire bonjour dans les cellules B486, B506, B539 et B600 en utilisant visual basic
alors je l'ai rendu comme ça :
Dim i As Integer
for i =486; 506; 539 ; 600
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "bonjour"
Next i
mais ça ne marche pas
Pouvez vous m'aider?
Merci
j'ai besoin d'appliquer une marco VB sur des champs non successifs, mon marco initial est :
Range("B486").Select
ActiveCell.FormulaR1C1 = "bonjour"
End Sub
je veux rendre le macro de type variable qui consiste à écrire bonjour dans les cellules B486, B506, B539 et B600 en utilisant visual basic
alors je l'ai rendu comme ça :
Dim i As Integer
for i =486; 506; 539 ; 600
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "bonjour"
Next i
mais ça ne marche pas
Pouvez vous m'aider?
Merci
2 réponses
-
Bonjour,
Essaies ce code :Dim i As Integer
Dim t As Variant
t = Array(486, 506, 539, 600)
For i = LBound(t) To UBound(t)
Range("B" & t(i)).Formula = "bonjour"
Next i -
Re,
si ton code s'applique à la feuille 1 et
si la liste se trouve en colonne A de la feuille 2, à partir de A1Dim i As Integer
Dim t As Variant
With Worksheets(2)
t = Application.Transpose(.Range("A1:A" & _
.Range("A" & .Rows.Count).End(xlUp).Row).Value)
End With
For i = LBound(t) To UBound(t)
Worksheets(1).Range("B" & t(i)).Formula = "bonjour"
Next i
