Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. if [A1]<>[A2] then tonuserform.show end if Cordialement. Daniel "croky23" a écrit dans le message de news:
bonjour le forum je voudrais appeler un userform si la valeur de 2 cellules sont differentes comment puis je proceder? merci bonne journée
Bonjour.
if [A1]<>[A2] then
tonuserform.show
end if
Cordialement.
Daniel
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de
news: 0CCB77AE-3F70-4B0D-900B-5606A1AEFE78@microsoft.com...
bonjour le forum
je voudrais appeler un userform si la valeur de 2 cellules sont
differentes
comment puis je proceder?
merci
bonne journée
Bonjour. if [A1]<>[A2] then tonuserform.show end if Cordialement. Daniel "croky23" a écrit dans le message de news:
bonjour le forum je voudrais appeler un userform si la valeur de 2 cellules sont differentes comment puis je proceder? merci bonne journée
Daniel
Bonsoir. Ca dépend ce que tu veux faire. Si tu veux le faire "en temps réel", fais un clic droit sur l'onglet de la feuille, clique sur "visualiser le code" et copie le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Union(Range("A1"), Range("A2"))) _ Is Nothing Then Exit Sub If [A1] <> [A2] Then tonuserform.Show End If End Sub
Tu peux remplacer A1 et A2 par les cellules de ton choix (si les cellules sont adjacentes, tu peux écrire plus simplement : If Intersect(Target, Range("A1:A2")) _
Daniel "croky23" a écrit dans le message de news:
merci pour ce code mais je l'inscrit ou et comment ma feuille se nomme BDN merci Daniel
Bonjour. if [A1]<>[A2] then tonuserform.show end if Cordialement. Daniel "croky23" a écrit dans le message de news:
bonjour le forum je voudrais appeler un userform si la valeur de 2 cellules sont differentes comment puis je proceder? merci bonne journée
Bonsoir.
Ca dépend ce que tu veux faire. Si tu veux le faire "en temps réel", fais un
clic droit sur l'onglet de la feuille, clique sur "visualiser le code" et
copie le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union(Range("A1"), Range("A2"))) _
Is Nothing Then Exit Sub
If [A1] <> [A2] Then
tonuserform.Show
End If
End Sub
Tu peux remplacer A1 et A2 par les cellules de ton choix (si les cellules
sont adjacentes, tu peux écrire plus simplement :
If Intersect(Target, Range("A1:A2")) _
Daniel
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de
news: 4EFE1A9F-99E0-480B-B329-C4643B914D52@microsoft.com...
merci pour ce code mais je l'inscrit ou et comment
ma feuille se nomme BDN
merci Daniel
Bonjour.
if [A1]<>[A2] then
tonuserform.show
end if
Cordialement.
Daniel
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de
news: 0CCB77AE-3F70-4B0D-900B-5606A1AEFE78@microsoft.com...
bonjour le forum
je voudrais appeler un userform si la valeur de 2 cellules sont
differentes
comment puis je proceder?
merci
bonne journée
Bonsoir. Ca dépend ce que tu veux faire. Si tu veux le faire "en temps réel", fais un clic droit sur l'onglet de la feuille, clique sur "visualiser le code" et copie le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Union(Range("A1"), Range("A2"))) _ Is Nothing Then Exit Sub If [A1] <> [A2] Then tonuserform.Show End If End Sub
Tu peux remplacer A1 et A2 par les cellules de ton choix (si les cellules sont adjacentes, tu peux écrire plus simplement : If Intersect(Target, Range("A1:A2")) _
Daniel "croky23" a écrit dans le message de news:
merci pour ce code mais je l'inscrit ou et comment ma feuille se nomme BDN merci Daniel
Bonjour. if [A1]<>[A2] then tonuserform.show end if Cordialement. Daniel "croky23" a écrit dans le message de news:
bonjour le forum je voudrais appeler un userform si la valeur de 2 cellules sont differentes comment puis je proceder? merci bonne journée
