Afficher des données dans cellule en fonction de la saisie
Fermé
soum1080
Messages postés
3
Date d'inscription
mardi 9 février 2016
Statut
Membre
Dernière intervention
9 février 2016
-
9 févr. 2016 à 10:22
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 9 févr. 2016 à 15:45
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 9 févr. 2016 à 15:45
A voir également:
- Afficher des données dans cellule en fonction de la saisie
- Fonction si et - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Afficher mot de passe wifi android - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
9 févr. 2016 à 10:39
9 févr. 2016 à 10:39
Bonjour
sans macro avev index-quiv
voir:
http://www.cjoint.com/c/FBjjMW2t546
sans macro avev index-quiv
voir:
http://www.cjoint.com/c/FBjjMW2t546
Theo.R
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
31
9 févr. 2016 à 15:45
9 févr. 2016 à 15:45
Bonjour,
Le fait de saisir dans la même cellule empêche de trouver une solution par formule. Donc il reste l'étendue des possibles qu'offrent les Macros (qui ne sont que l'application du code VBA qui est lui le langage de programmation).
La solution se compose de 2 codes :
1) Le premier est à mettre dans le code de la feuille sur laquelle vous travaillez:
2) le 2nd est à mettre dans un Module VBA :
Le fait de saisir dans la même cellule empêche de trouver une solution par formule. Donc il reste l'étendue des possibles qu'offrent les Macros (qui ne sont que l'application du code VBA qui est lui le langage de programmation).
La solution se compose de 2 codes :
1) Le premier est à mettre dans le code de la feuille sur laquelle vous travaillez:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
V = Target.Value
A = Target.Address
L = Target.Row
If Flag = True Then Exit Sub
Flag = True
If A Like "*C*" And V <> "" And V = Range("A" & L).Value Then
Range(A).Value = Range("B" & L).Value
Else
If A Like "*C*" And V <> "" And V = Range("B" & L).Value Then
Range(A).Value = Range("A" & L).Value
End If
End If
Flag = False
End Sub
2) le 2nd est à mettre dans un Module VBA :
Public Flag As Boolean
9 févr. 2016 à 10:54
Or, j'aimerais (si possible), que mon texte s'affiche en lieu et place de ma valeur saisie, c-a-d dans D2 (dans votre exemple...)
Est-ce possible?
9 févr. 2016 à 11:25
En D2 la validation de données évite des fautes de frappe
Maintenant, faites ce que vous voulez, vous avez le principee avec la formule que je vous ai donné
A vous d'adapter
je coche "résolu"
9 févr. 2016 à 11:29
9 févr. 2016 à 11:38
mais vous avez marqué
je ne maîtrise ni macro, ni VBA