procédure à exécuter pour chaque cellule contenue dans le plage selectionnée Résolu

Question

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

jordane45 · Accepted Answer

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,

jordane45 · Answer

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,

titeuf136 · Answer

Merci

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

3 réponses

Votre réponse

Discussions similaires