If Me.UFormDesac_TextBoxNom = .Range("D" & J).value Then
For J = 4 To Lg
If Me.UFormDesac_TextBoxNom = .Range("D" & J) Then
MsgBox "Ce Nom existe déjà!"
Exit Sub
End If
Next J
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSheets("AJOUT").Range("C65535").End(xlUp).Offset(1, 0) = Me.UFormDesac_TextBoxNom Sheets("AJOUT").Range("D65535").End(xlUp).Offset(1, 0) = Me.UFormDesac_TextBoxNDC Sheets("AJOUT").Range("E65535").End(xlUp).Offset(1, 0) = Me.UFormDesac_TextBoxDateEntree Sheets("AJOUT").Range("F65535").End(xlUp).Offset(1, 0) = Me.UFormDesac_NatureDesac
Dim derligne As Integer Dim lignecr As Integer Selection.End(x1Down).Select derligne = ActiveCell.Row lignecr = derligne + 1 Sheets("SUIVI").Range("A" & lignecr + 1) = Me.USuiviPretsCHF_TextBoxDate Sheets("SUIVI").Range("B" & lignecr + 1) = Me.USuiviPretsCHF_choixConcurrent Sheets("SUIVI").Range("C" & lignecr + 1) = Me.USuiviPretsCHF_ChoixTypePret Sheets("SUIVI").Range("D" & lignecr + 1) = Me.USuiviPretsCHF_TextBoxPret Sheets("SUIVI").Range("E" & lignecr + 1) = Me.USuiviPretsCHF_ComboBoxAg Sheets("SUIVI").Range("F" & lignecr + 1) = Me.USuiviPretsCHF_TextBoxC