Bonjour
Dans un USF, je n'arrive pas à tester si la valeur du combo33 existe en colonne A de la feuille "correspondance"
Le but du jeu : s'il ne trouve pas la valeur, il peut créer la nouvelle valeur, sinon, message d'impossibilité d'exécuter la suite de la macro.
Ça pêche où svp ?
Merci d'avance
Dim Trouve As Range
With Sheets("Correspondance")
With .Columns("A:A")
Set Trouve = .Find(ComboBox33, LookIn:=xlValues)
End With
If Not Trouve Is Nothing Then
ligne = Sheets("Correspondance").[A65000].End(xlUp).Row + 1
Sheets("Correspondance").Cells(ligne, 1) = Me.ComboBox33
Sheets("Correspondance").Cells(ligne, 2) = Me.TextBox1
MsgBox "Nouvellecorrespondance enregistrée avec succès"
Else
MsgBox "Nouvelle correspondance impossible a créer car déjà existante"
End If
End With
J'ai oublié de signaler que c'est lorsque la valeur existe déjà que le code ci-dessus ne fonctionne pas (fait comme si la valeur n'existait pas)
merci