Validation d'une Cellule
djca
Messages postés
32
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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
A voir également:
- Validation d'une Cellule
- Bloquer une cellule excel - Guide
- Impossible d'utiliser ce numéro de téléphone pour la validation - Forum Gmail
- Commande en cours de validation fnac - Forum Consommation & Internet
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
3 réponses
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+
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
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
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.
A+
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+
