1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

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

Signaler
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
 -
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
 -
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

Réponse 1 / 3
Messages postés
33123
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 juillet 2021
 351
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,
Réponse 2 / 3
Messages postés
33123
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 juillet 2021
 351
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,
Réponse 3 / 3
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
 1
Merci
Répondre Posez votre question