Procédure à exécuter pour chaque cellule contenue dans le plage selectionnée

Résolu
titeuf136
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
- 15 mars 2010 à 13:48
titeuf136
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
- 18 juin 2010 à 14:18
Bonjour,

je souhaite selectionner une plage de cellules (plusieurs cellules).

Pour chaque cellules contenu dans la selection je souhaite exécuter la procédure suivante:

dans le cas ci-dessous la cellules qui fait l'objet de la procédure est la cellule cells(I,1).


Sub esai()
I = 2
doubleheure = Cells(I, 1).Value
If Mid(doubleheure, 3, 1) ":" And Mid(doubleheure, 6, 1) "/" Then
h0 = Mid(doubleheure, 1, 2)
h1 = Mid(doubleheure, 4, 2)
h2 = Mid(doubleheure, 7, 2)
Cells(I - 1, 1).Value = CStr(h0) & ":" & CStr(h1)
Cells(I + 1, 1).Value = CStr(h0) & ":" & CStr(h2)
End If
End Sub


Merci d'avance

3 réponses

jordane45
Messages postés
36034
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
8 août 2022
358
1 avril 2010 à 18:21
J'ai un peu amélioré la macro pour que tu puisse trouver facilement les coordonnées des cellules :
Sub Action_range()
Dim MaPlage As Range
Set MaPlage = Selection

' Pour chaque cellule contenue dans la plage sélectionnée...
For Each Cell In MaPlage
' ici j'éxecute le programme
    Ligne = Cell.Row ' N° de ligne de la cellule concernée
    Colo = Cell.Column ' N° de Colonne de la cellule concernée
    'exemple : afficher les valeurs des cellules
    MsgBox ("La cellule :(" & Ligne & "," & Colo & ") a pour valeur: " & Cell.Value)
Next

End Sub



Cordialement,
Jordane,
3
jordane45
Messages postés
36034
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
8 août 2022
358
1 avril 2010 à 18:15
Bonjour,
je te propose d'utiliser un code comme celui ci-dessous pour traiter ta demande :


Sub Action_range()
Dim MaPlage As Range
Set MaPlage = Selection

' Pour chaque cellule contenue dans la plage sélectionnée...
For Each Cell In MaPlage
' ici j'éxecute le programme
    MsgBox (Cell.Value) 'exemple : afficher les valeurs des cellules
Next

End Sub




Si tu rencontre des soucis, n'hésites pas à me recontacter.

Cordialement,
Jordane,
0
titeuf136
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
1
18 juin 2010 à 14:18
Merci
0