Microsoft 365 Vba - Nom ambigu detecté

[Lazz]

Bonjour,

Je ne suis pas du tout caler en VBA mais j'ai trouver un code qui fais ce que je recherche et qui fonctionne bien.
J'aimerai maintenant reproduire le même programme mais pour des plages différentes. J'ai copié coller le programme en changeant les plage de cellule mais cela me met "nom ambigu détecté" et je ne sais pas quoi changer pour que cela fonctionne.

je vous met une photos pour illustrer ce que je raconte

pouvez vous m'aidez ?
merci

 

[Phil69970]

Bonjour @Lazz

Tu ne peux pas avoir 2 fois :

Sub Worksheet_Change(ByVal Target As Range)

*Merci de ton retour

@Phil69970

 

[dysorthographie]

Bonjour,
Tu as deux fois la même procédure !

Je t'invite à les fusionner dans la même.

Je l'aurai bien fait pour toi mais je m'etrises pas bien Photoshop !

 

[Lazz]

Bonjour @Lazz

Tu ne peux pas avoir 2 fois :


*Merci de ton retour

@Phil69970

oui j'ai cru comprendre mais que dois-je modifier pour que les deux fonctionne pareil ?

 

[Lazz]

Bonjour,
Tu as deux fois la même procédure !

Je t'invite à les fusionner dans la même.

Je l'aurai bien fait pour toi mais je m'etrises pas bien Photoshop !

oui mais je ne sais pas comment les fusionner.
je t'envoie le programme:

Public Sub Worksheet_change(ByVal Target As Range)
Dim rng2 As Range

If Target.Column = 8 Then
If Target.Value = "oui" Then
Set rng2 = Range(Cells(Target.Row, Target.Column + 8), Cells(Target.Row, Target.Column + 8))
rng2.Activate
Do While (IsEmpty(rng2.Value))
MsgBox ("Veuillez renseigner cette cellule")
rng2.Value = InputBox("oui ou non ?")
Loop
End If
End If
End Sub

Public Sub Worksheet_change(ByVal Target As Range)
Dim rng2 As Range

If Target.Column = 16 Then
If Target.Value = "" Then
Set rng2 = Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 1))
rng2.Activate
Do While (IsEmpty(rng2.Value))
MsgBox ("Veuillez renseigner cette cellule")
rng2.Value = InputBox("oui ou non ?")
Loop
End If
End If
End Sub

 

[Phil69970]

Re

Que veux tu faire exactement avec ton fichier ?

Public Sub Worksheet_change(ByVal Target As Range)
Dim rng2 As Range

If Target.Column = 8 Then
    If Target.Value = "oui" Then
        Set rng2 = Range(Cells(Target.Row, Target.Column + 8), Cells(Target.Row, Target.Column + 8))
        rng2.Activate
        Do While (IsEmpty(rng2.Value))
            MsgBox ("Veuillez renseigner cette cellule")
            rng2.Value = InputBox("oui ou non ?")
        Loop
    End If
End If
If Target.Column = 16 Then
    If Target.Value = "" Then
        Set rng2 = Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 1))
        rng2.Activate
        Do While (IsEmpty(rng2.Value))
            MsgBox ("Veuillez renseigner cette cellule")
            rng2.Value = InputBox("oui ou non ?")
        Loop
    End If
End if
End Sub

Mais il y a surement plus simple en fonction de ce que tu veux faire
Un fichier serait le bienvenu

@Phil69970

 

[JM27]

bonjour

Peut etre comme cela : pas testé

Public Sub Worksheet_change(ByVal Target As Range)
Dim rng2 As Range
If Target.Column = 8 Then
    If Target.Value = "oui" Then
        Set rng2 = Range(Cells(Target.Row, Target.Column + 8), Cells(Target.Row, Target.Column + 8))
        rng2.Activate
        Do While (IsEmpty(rng2.Value))
            MsgBox ("Veuillez renseigner cette cellule")
            rng2.Value = InputBox("oui ou non ?")
        Loop
        End If
 ElseIf Target.Column = 16 Then
    If Target.Value = "" Then
    Set rng2 = Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 1))
    rng2.Activate
        Do While (IsEmpty(rng2.Value))
            MsgBox ("Veuillez renseigner cette cellule")
            rng2.Value = InputBox("oui ou non ?")
        Loop
    End If
        
End If
End Sub

 

[Lazz]

Re

Que veux tu faire exactement avec ton fichier ?

@Phil69970

J'aimerai que quand je rempli une cellule A par exemple alors je suis obligé de remplir la cellule C (Premier programme qui fonctionne très bien) mais du coup je voulais rajouter autre chose (bien sure c'est pas si simple)
Je voulais que quand C est renseigné alors je suis obligé de renseigné D.
c'est pour cela que j'ai dupliquer le même programme avec des numéros de colonne différent

 

[Lazz]

bonjour

Peut etre comme cela : pas testé

Public Sub Worksheet_change(ByVal Target As Range)
Dim rng2 As Range
If Target.Column = 8 Then
    If Target.Value = "oui" Then
        Set rng2 = Range(Cells(Target.Row, Target.Column + 8), Cells(Target.Row, Target.Column + 8))
        rng2.Activate
        Do While (IsEmpty(rng2.Value))
            MsgBox ("Veuillez renseigner cette cellule")
            rng2.Value = InputBox("oui ou non ?")
        Loop
        End If
 [COLOR=rgb(26, 188, 156)]ElseIf Target.Column = 16 Then
    If Target.Value = "" Then[/COLOR]
    Set rng2 = Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 1))
    rng2.Activate
        Do While (IsEmpty(rng2.Value))
            MsgBox ("Veuillez renseigner cette cellule")
            rng2.Value = InputBox("oui ou non ?")
        Loop
    End If
       
End If
End Sub

Bonjour, OK ça fonctionne mais que quand la colonne 16 est vide
je pensais que
If Target.Value = "" Then voulais dire "quand la case est rempli alors ..."
mais apparemment non

 

[Phil69970]

Re

If Target.Value = "" Then

C'est plutôt le contraire ==> si la valeur de Target = "" ==> si la valeur de Target est vide

@Phil69970

 

[Lazz]

Re



C'est plutôt le contraire ==> si la valeur de Target = "" ==> si la valeur de Target est vide

@Phil69970

ANNNW et comment mettre si la valeur Target est rempli ?

 

[Lazz]

ANNNW et comment mettre si la valeur Target est rempli ?

J'ai !!!!! Si target <> "" then

Merci beaucoup à tout le monde

 

[Phil69970]

Re

Quesako ?

ANNNW

If Target.Value <> "" Then

@Phil69970

 

[patricktoulon]

Bonjour c'est un jeu dangereux a plus de deux cellules tu risque d’être bloqué en boucle

 

[Lazz]

Bonjour c'est un jeu dangereux a plus de deux cellules tu risque d’être bloqué en boucle

Bonjour !
Ah mais moi j'ai que deux cellules alors ça marche ! tu as une autre façon de faire ?