Re : Message d'alerte lors verification noms dans 2 onglets
bonjour Julie-F
Voici ton fichier avec des macros d'alerte en cas de doublon sur une autre feuille
teste si elles font bonne compagnie avec les actuelles et sinon reviens nous expliquer ce qui ne va pas
Bonjour Pierrejean
Merci d'avoir répondu si rapidement.
Ton message d'alerte fonctionne parfaitement seul
mais rien ne se passe lorsque j'ajoute tes instructions
derriere celles déjà existantes.
😱
Comment puis-je associer les conditons :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B8:B1000], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
ncol = 19
[B65000].End(xlUp).Offset(1, 0).Resize(1, ncol).Select
ActiveSheet.Unprotect Password:="www"
Selection.Offset(-1, 0).Copy ActiveCell
On Error Resume Next
Target.EntireRow.RowHeight = 20
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
ActiveCell.Offset(0, -1).Copy ActiveCell.Offset(1, -1)
ActiveCell.Offset(1, -1).ClearContents
ActiveSheet.Protect Password:="www"
Application.EnableEvents = True
End If
End Sub
AUX TIENNES :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Column = 4 And Target.Row > 5 Then
Set c = Sheets("Suivi 1").Columns(3).Find(Target.Value, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
MsgBox ("Doublon page Suivi1 à la ligne " & c.Row)
End If
End If
End Sub
L'ensemble des conditions devant être réuni.
Je continue de chercher mais si tu as une idée...