Validation d'une Cellule Fermé

Question

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

lermite222 · Answer

Bonjour,
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+

djca · Answer

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

lermite222 · Answer

Si 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+

Validation d'une Cellule

3 réponses

Discussions similaires