Bonjour,
Qqn du forum m'a gentiment créé un code que j'ai essayé de mettre dans mon fichier contenant lui aussi déja des codes.
Et la, il me signale un problème de nom
Voici le code existant :
Et voici le nouveau code que je voudrais ajouter :
Les 2 codes ont ce nom identique : Private Sub Worksheet_Change(ByVal Target As Range).
Pouvez-vous me dire comment procéder svp ?
Grand merci d'avance.
Pasqi
Qqn du forum m'a gentiment créé un code que j'ai essayé de mettre dans mon fichier contenant lui aussi déja des codes.
Et la, il me signale un problème de nom
Voici le code existant :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Value = Empty Then Exit Sub
If .Row < 4 Then Exit Sub
'exemple pour les colonne
'à partir de la ligne 5
'on peut ajouter autant de conditions qu'on veut en ajoutant
'Or .Column = ...
'supprimer éventuelement Or .column = ...conserver Then
If .Column = 3 Or .Column = 7 Or .Column = 8 Or .Column = 10 Or .Column = 11 Or .Column = 12 Then
.Value = UCase(.Value) 'on met en majuscule"NOM" col 2
ElseIf .Column = 4 Then
.Value = Application.Proper(.Value) 'on met en mixte"Prénom"col 1
End If
End With
End Sub
Et voici le nouveau code que je voudrais ajouter :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Boolean
If Target.Column = 3 Or Target.Column = 4 Then
B = verif.exe(Me.Cells(Target.Row, 3), Me.Cells(Target.Row, 4))
If B = True Then
Me.Cells(Target.Row, 3) = ""
Me.Cells(Target.Row, 4) = ""
End If
End If
End Sub
Les 2 codes ont ce nom identique : Private Sub Worksheet_Change(ByVal Target As Range).
Pouvez-vous me dire comment procéder svp ?
Grand merci d'avance.
Pasqi