A voir également:
- Récupération zone de données VBA
- Zone telechargement - Guide
- Logiciel de récupération de données - Guide
- Récupération de compte google - Guide
- Effacer les données de navigation - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
1 réponse
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
24 juin 2010 à 14:36
24 juin 2010 à 14:36
Bonjour,
Cette petite procédure parcourt la plage désirée et un message vous indique la valeur de la dernière cellule de la ligne traitée. Remplacer le message par l'opération que vous désirez effectuer.
Sub RecupValeur()
Dim cel As Variant
For Each cel In Range("ES5:EZ371")
MsgBox "sur la ligne " & cel.Row & " valeur de EZ" & cel.Column & " est : " & cel.Offset(0, 7).Value
Next
End Sub
Cette petite procédure parcourt la plage désirée et un message vous indique la valeur de la dernière cellule de la ligne traitée. Remplacer le message par l'opération que vous désirez effectuer.
Sub RecupValeur()
Dim cel As Variant
For Each cel In Range("ES5:EZ371")
MsgBox "sur la ligne " & cel.Row & " valeur de EZ" & cel.Column & " est : " & cel.Offset(0, 7).Value
Next
End Sub
24 juin 2010 à 14:42