J'ai un problème et je pense que le seul moyen est de passer par une Macro
mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de votre
aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre aléatoire
et l'autre 0.
Comment faire pour qu'automatiquement dès que je tape dans la deuxième
cellule un nombre similaire a ma première cellule,
la première cellule passe à 0.
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. Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub If Target.Value = [A1] Then [A1] = 0 End Sub
Cordialement. Daniel "Naddor" a écrit dans le message de news:
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de votre aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre aléatoire et l'autre 0. Comment faire pour qu'automatiquement dès que je tape dans la deuxième cellule un nombre similaire a ma première cellule, la première cellule passe à 0.
| 512 | 0 | --> | 0 | 512 |
Merci d'avance
Bonjour.
Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta
feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Target.Value = [A1] Then [A1] = 0
End Sub
Cordialement.
Daniel
"Naddor" <Naddor@discussions.microsoft.com> a écrit dans le message de news:
C4CDAD08-490F-4CDC-9EE1-E07D640B4AAE@microsoft.com...
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro
mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de
votre
aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre
aléatoire
et l'autre 0.
Comment faire pour qu'automatiquement dès que je tape dans la deuxième
cellule un nombre similaire a ma première cellule,
la première cellule passe à 0.
Bonjour. Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub If Target.Value = [A1] Then [A1] = 0 End Sub
Cordialement. Daniel "Naddor" a écrit dans le message de news:
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de votre aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre aléatoire et l'autre 0. Comment faire pour qu'automatiquement dès que je tape dans la deuxième cellule un nombre similaire a ma première cellule, la première cellule passe à 0.
| 512 | 0 | --> | 0 | 512 |
Merci d'avance
ABED HADDOU
Bonjour NADOR Nome ta plage de saisie. Selectionne ta plage de saisie puis Tu fait insertion,nom,définir, dans la fenêtre en haut nom dans le classeur écris Plage Ensuite clic droit au dessus de l’onglet au ce trouve ta plage et tu insert ce code.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("Plage"), Target) Is Nothing And Target.Count = 1 Then For Each C In Range("Plage") If C.Value = Target.Value And C.Row <> Target.Row Then C.Value = 0 Exit Sub End If Next C End If End Sub
Cordialement Abed
Bonjour. Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub If Target.Value = [A1] Then [A1] = 0 End Sub
Cordialement. Daniel "Naddor" a écrit dans le message de news:
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de votre aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre aléatoire et l'autre 0. Comment faire pour qu'automatiquement dès que je tape dans la deuxième cellule un nombre similaire a ma première cellule, la première cellule passe à 0.
| 512 | 0 | --> | 0 | 512 |
Merci d'avance
Bonjour NADOR
Nome ta plage de saisie.
Selectionne ta plage de saisie puis Tu fait insertion,nom,définir, dans la
fenêtre en haut nom dans le classeur écris Plage
Ensuite clic droit au dessus de l’onglet au ce trouve ta plage et tu insert
ce code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("Plage"), Target) Is Nothing And Target.Count = 1
Then
For Each C In Range("Plage")
If C.Value = Target.Value And C.Row <> Target.Row Then
C.Value = 0
Exit Sub
End If
Next C
End If
End Sub
Cordialement
Abed
Bonjour.
Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta
feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Target.Value = [A1] Then [A1] = 0
End Sub
Cordialement.
Daniel
"Naddor" <Naddor@discussions.microsoft.com> a écrit dans le message de news:
C4CDAD08-490F-4CDC-9EE1-E07D640B4AAE@microsoft.com...
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro
mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de
votre
aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre
aléatoire
et l'autre 0.
Comment faire pour qu'automatiquement dès que je tape dans la deuxième
cellule un nombre similaire a ma première cellule,
la première cellule passe à 0.
Bonjour NADOR Nome ta plage de saisie. Selectionne ta plage de saisie puis Tu fait insertion,nom,définir, dans la fenêtre en haut nom dans le classeur écris Plage Ensuite clic droit au dessus de l’onglet au ce trouve ta plage et tu insert ce code.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("Plage"), Target) Is Nothing And Target.Count = 1 Then For Each C In Range("Plage") If C.Value = Target.Value And C.Row <> Target.Row Then C.Value = 0 Exit Sub End If Next C End If End Sub
Cordialement Abed
Bonjour. Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub If Target.Value = [A1] Then [A1] = 0 End Sub
Cordialement. Daniel "Naddor" a écrit dans le message de news:
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de votre aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre aléatoire et l'autre 0. Comment faire pour qu'automatiquement dès que je tape dans la deuxième cellule un nombre similaire a ma première cellule, la première cellule passe à 0.
| 512 | 0 | --> | 0 | 512 |
Merci d'avance
ABED HADDOU
oupssss.... si la saisie ce fait en colonne tu remplace Row par Column
Bonjour. Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub If Target.Value = [A1] Then [A1] = 0 End Sub
Cordialement. Daniel "Naddor" a écrit dans le message de news:
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de votre aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre aléatoire et l'autre 0. Comment faire pour qu'automatiquement dès que je tape dans la deuxième cellule un nombre similaire a ma première cellule, la première cellule passe à 0.
| 512 | 0 | --> | 0 | 512 |
Merci d'avance
oupssss....
si la saisie ce fait en colonne tu remplace Row par Column
Bonjour.
Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta
feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Target.Value = [A1] Then [A1] = 0
End Sub
Cordialement.
Daniel
"Naddor" <Naddor@discussions.microsoft.com> a écrit dans le message de news:
C4CDAD08-490F-4CDC-9EE1-E07D640B4AAE@microsoft.com...
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro
mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de
votre
aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre
aléatoire
et l'autre 0.
Comment faire pour qu'automatiquement dès que je tape dans la deuxième
cellule un nombre similaire a ma première cellule,
la première cellule passe à 0.
oupssss.... si la saisie ce fait en colonne tu remplace Row par Column
Bonjour. Suppose que les deux cellules soient A1 et A2. Tu mets dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub If Target.Value = [A1] Then [A1] = 0 End Sub
Cordialement. Daniel "Naddor" a écrit dans le message de news:
Bonjour,
J'ai un problème et je pense que le seul moyen est de passer par une Macro mais je suis plus que novice sur le VBA, c'est pourquoi j'ai besoin de votre aide.
Une feuille de calcul posséde 2 cellules, une contenant un nombre aléatoire et l'autre 0. Comment faire pour qu'automatiquement dès que je tape dans la deuxième cellule un nombre similaire a ma première cellule, la première cellule passe à 0.
