Macro boucle Basique
Fermé
manoelinho
Messages postés
43
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
5 mars 2012
-
18 janv. 2012 à 11:07
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 - 1 mars 2012 à 16:39
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 - 1 mars 2012 à 16:39
A voir également:
- Macro boucle Basique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Jitbit macro recorder - Télécharger - Confidentialité
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
1 réponse
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
153
Modifié par eljojo_e le 1/03/2012 à 16:40
Modifié par eljojo_e le 1/03/2012 à 16:40
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