Validation d'une Cellule

Fermé

djca Messages postés 26 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 15 juin 2014 - 2 avril 2010 à 13:46
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 5 avril 2010 à 18:53

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

A voir également:

Validation d'une Cellule
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Validation des données excel - Guide
Commande en cours de validation fnac - Forum Consommation & Internet

3 réponses

Réponse 1 / 3

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 avril 2010 à 17:12

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+

Réponse 2 / 3

djca Messages postés 26 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 15 juin 2014 5
4 avril 2010 à 18:27

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

Réponse 3 / 3

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
5 avril 2010 à 18:53

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+

Discussions similaires

Gmail impossible sans numéro de téléphone

Impossible d'utiliser numéro de téléphone validation

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters