Validation d'une Cellule
J'écris une macro-commande qui doit me donner la valeur dans telle ou telle cellule fonction de la position de la cellule active
et il y a eut une erreur que je ne vois pas
Dim Zonetest As Range, Zonetest1 As Range, Zonetest2 As Range
Dim cell As Range
Set Zonetest = Range("A1:F26")
Set Zonetest1 = Range("A36:F62")
Set Zonetest2 = Range("A91:F96")
Set cell = ActiveCell
!!!!! For Each cell In Zonetest
( valeur de G1 Range("G11").Select
Next
Exit Sub
End Sub
et il y a eut une erreur que je ne vois pas
Dim Zonetest As Range, Zonetest1 As Range, Zonetest2 As Range
Dim cell As Range
Set Zonetest = Range("A1:F26")
Set Zonetest1 = Range("A36:F62")
Set Zonetest2 = Range("A91:F96")
Set cell = ActiveCell
!!!!! For Each cell In Zonetest
( valeur de G1 Range("G11").Select
Next
Exit Sub
End Sub
3 réponses
-
ContributeurBonjour,
Qu'il y ai des erreurs ce n'est pas difficile à voir... Ce qui est plus compliquer c'est de comprendre ce que tu veux dire ?
Essaye d'expliquer cela calmement et en détails !!
A+
-
Bonjour je voudrais avoir en G1
la date qui est dans la cellule
1) C1 si la cellule active est dans zone A2 - F26 Zonetest = Range("A1:F26")
1) C36 si la cellule active est dans zone A36 F62 Zonetest1 = Range("A36:F62")
...
merci
cdt -
ContributeurSi j'ai bien compris !!
Tu colle ce code dans le module de la feuille..
Clic droit sur l'onglet de ta feuille >> Visualiser le code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:F26")) Is Nothing Then Range("G1") = Range("C1") ElseIf Not Intersect(Target, Range("A36:F62")) Is Nothing Then Range("G1") = Range("C36") Else Range("G1") = "" End If End Sub
A+
