Macro boucle Basique
manoelinho
Messages postés
46
Statut
Membre
-
eljojo_e Messages postés 1255 Statut Membre -
eljojo_e Messages postés 1255 Statut Membre -
Bonjour,
Je ne sais pas du tout comment faire une macro boucle, je pense que mon probleme est facile a résoudre.
J'ai un fichier basique. Une colonne A avec des données; et une colonne B avec une Formule.
J'aimerais que la macro me permette dans le cas ou la cellule en A soit active et différente de 0 d'inscrire la formule (RechercheV(A1;Responsabilities!$G$1:$L$20000;3;0) sur la même ligne dans la colonne B.
Pourriez vous m'indiquer comment écrire cette macro?
Merci d avance
Je ne sais pas du tout comment faire une macro boucle, je pense que mon probleme est facile a résoudre.
J'ai un fichier basique. Une colonne A avec des données; et une colonne B avec une Formule.
J'aimerais que la macro me permette dans le cas ou la cellule en A soit active et différente de 0 d'inscrire la formule (RechercheV(A1;Responsabilities!$G$1:$L$20000;3;0) sur la même ligne dans la colonne B.
Pourriez vous m'indiquer comment écrire cette macro?
Merci d avance
A voir également:
- Macro boucle Basique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Tv orange chargement en boucle ✓ - Forum TV & Vidéo
- Macro maker - Télécharger - Divers Utilitaires
1 réponse
bonjour,
pour une boucle simple tu peut utiliser for :
for a = 1 to 10000 => pour que la valeur de a aille de 1 à 10000
next => nombre suivant
Sub boucle()
Dim a As Single
For a = 1 To 10000
If Range("a" & a).Value <> "" and Range("a" & a).Value <> 0 Then
Range("B" & a).Value = "=VLOOKUP(RC[-1],Responsabilities!R1C7:R20000C12,3,0)"
End If
Next
End Sub
pour une boucle simple tu peut utiliser for :
for a = 1 to 10000 => pour que la valeur de a aille de 1 à 10000
next => nombre suivant
Sub boucle()
Dim a As Single
For a = 1 To 10000
If Range("a" & a).Value <> "" and Range("a" & a).Value <> 0 Then
Range("B" & a).Value = "=VLOOKUP(RC[-1],Responsabilities!R1C7:R20000C12,3,0)"
End If
Next
End Sub
