A voir également:
- Récupération zone de données VBA
- Zone telechargement - Guide
- Logiciel de récupération de données - Guide
- Effacer les données de navigation - Guide
- Récupération de compte google - Guide
- Reinstaller windows sans perte de données - Guide
1 réponse
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
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