E
exal78
Guest
Slt à tous,
Voila j'ai une cellule avec du texte sur une feuille.
Je voudrai comparer cette cellule avec plusieurs autres cellules dans une autre feuille. Afin de vérifier si ma nouvelle entrée n'existe pas déjà.
If ActiveSheet.Cells(2, 17) = Sheets("Base_machine").Range("A1:A150") Then
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
Else
' Si non, recopie dans la base
Selection.Copy
Sheets("Base_machine").Select
Sheets("Base_machine").Cells(premiereLigneVide, 1).Select
ActiveSheet.Paste
End If
Quand je compare une cellule à une autre tout marche bien
Mais des que je veut la comparer à plusieurs autres cellules sa marche plus :s
Si quelqu'un peut m'aider ?
Voila j'ai une cellule avec du texte sur une feuille.
Je voudrai comparer cette cellule avec plusieurs autres cellules dans une autre feuille. Afin de vérifier si ma nouvelle entrée n'existe pas déjà.
If ActiveSheet.Cells(2, 17) = Sheets("Base_machine").Range("A1:A150") Then
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
Else
' Si non, recopie dans la base
Selection.Copy
Sheets("Base_machine").Select
Sheets("Base_machine").Cells(premiereLigneVide, 1).Select
ActiveSheet.Paste
End If
Quand je compare une cellule à une autre tout marche bien
Mais des que je veut la comparer à plusieurs autres cellules sa marche plus :s
Si quelqu'un peut m'aider ?