Bonjour à tous,
J'utilise une macro qui copie colle les données de certaines celulles de l'onglet "FNC" vers l'onglet "incrémentation".
Je souhaiterai ajouter à ma macro une condition qui vérifie qu'aucunes de ces cellules soient vides avant d'effectuer le copier/coller
Si une des cellules vides = msg box "il manque des informations dans une cellule"
Voici mon code:
Je ne sais pas si il existe déjà une discussion à ce sujet.
Merci d'avance pour votre aide
J'utilise une macro qui copie colle les données de certaines celulles de l'onglet "FNC" vers l'onglet "incrémentation".
Je souhaiterai ajouter à ma macro une condition qui vérifie qu'aucunes de ces cellules soient vides avant d'effectuer le copier/coller
Si une des cellules vides = msg box "il manque des informations dans une cellule"
Voici mon code:
VB:
Dim ligne As Long
ligne = Sheets("incrementation").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("incrementation").Range("A" & ligne).Value = Sheets("EFNC").Range("AC1").Value + 1
Sheets("incrementation").Range("B" & ligne).Value = Sheets("EFNC").Range("J6").Value
Sheets("incrementation").Range("C" & ligne).Value = Sheets("EFNC").Range("J7").Value
Sheets("incrementation").Range("D" & ligne).Value = Sheets("EFNC").Range("J8").Value
Sheets("incrementation").Range("E" & ligne).Value = Sheets("EFNC").Range("J9").Value
Sheets("incrementation").Range("F" & ligne).Value = Sheets("EFNC").Range("J10").Value
Sheets("incrementation").Range("G" & ligne).Value = Sheets("EFNC").Range("X6").Value
Sheets("incrementation").Range("H" & ligne).Value = Sheets("EFNC").Range("X7").Value
Sheets("incrementation").Range("I" & ligne).Value = Sheets("EFNC").Range("X8").Value
Sheets("incrementation").Range("J" & ligne).Value = Sheets("EFNC").Range("X9").Value
Sheets("incrementation").Range("K" & ligne).Value = Sheets("EFNC").Range("X10").Value
Sheets("incrementation").Range("L" & ligne).Value = Sheets("EFNC").Range("K13").Value
Sheets("incrementation").Range("M" & ligne).Value = Sheets("EFNC").Range("Y13").Value
Sheets("incrementation").Range("N" & ligne).Value = Sheets("EFNC").Range("F15").Value
Sheets("EFNC").Range("AC1").Value = Sheets("EFNC").Range("AC1").Value + 1
Je ne sais pas si il existe déjà une discussion à ce sujet.
Merci d'avance pour votre aide