Modification de code formulaire

[maval]

Bonjour

J'ai un formulaire avec des textbox pour enregistrer des nom et adresse des clients qui fonctionne pas trop mal sauf que j'aimerai qui ne tienne pas compte des colonnes "A & B" car j'ai des formules dans les cellules.
Mon code est ceci;

Private Sub CommandButton1_Click()
   
    'On recherche la première ligne disponible
    
    nlleLigne = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Cells(nlleLigne, 3) = TextNom.Value
    Cells(nlleLigne, 4) = TextAdresse.Value
    Cells(nlleLigne, 5) = TextCp.Value
    Cells(nlleLigne, 6) = TextVille.Value
    Cells(nlleLigne, 7) = TextTel.Value
    Cells(nlleLigne, 8) = TextPortable.Value
    Cells(nlleLigne, 9) = TextFax.Value
    
    ' On vide les zones de saisie
    TextNom.Value = ""
    TextAdresse.Value = ""
    TextCp.Value = ""
    TextVille.Value = ""
    TextTel.Value = ""
    TextPortable.Value = ""
    TextFax.Value = ""
End Sub

Comme

 Dim nlleLigne As Long

recherche la première ligne vide est qu'il y a des formules dans les colonnes "A & B"
je ne sais pas comment faire?

Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

Par avance merci pour votre aide.

Cordialement

Max

 

[Papou-net]

Re : Modification de code formulaire

Bonjour Max,

Une solution possible en modifiant ta macro comme ceci:

Private Sub CommandButton1_Click()
    Dim nlleLigne As Long, cel As Range
    'On recherche la première ligne disponible
    
    Set cel = Range("A:A").SpecialCells(xlCellTypeFormulas).Find("", LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then nlleLigne = cel.Row
    Cells(nlleLigne, 3) = TextNom.Value
    Cells(nlleLigne, 4) = TextAdresse.Value
    Cells(nlleLigne, 5) = TextCp.Value
    Cells(nlleLigne, 6) = TextVille.Value
    Cells(nlleLigne, 7) = TextTel.Value
    Cells(nlleLigne, 8) = TextPortable.Value
    Cells(nlleLigne, 9) = TextFax.Value
    
    ' On vide les zones de saisie
    TextNom.Value = ""
    TextAdresse.Value = ""
    TextCp.Value = ""
    TextVille.Value = ""
    TextTel.Value = ""
    TextPortable.Value = ""
    TextFax.Value = ""
End Sub

A +

Cordialement.

 

[bbb38]

Re : Modification de code formulaire

Bonjour maval, Papou-net, le forum,
Une autre proposition.
Remplacer :

    nlleLigne = Cells(Rows.Count, 1).End(xlUp).Row + 1

Par :

    nlleLigne = Cells(Rows.Count, 3).End(xlUp).Row + 1

Cordialement,
Bernard

 

[maval]

Re : Modification de code formulaire

Bonjour Papou-Net, Bernard,

Je vous remercie beaucoup Nickel

Je vous souhaite une bonne journée

Max

 

[maval]

Re : Modification de code formulaire

Re,

Suite au code de Papou-Net et Bernard que je remercie encore. J'aimerais lui apporter une modification en lui ajoutant de textbox pour adresse émail jusque la pas de problème, mais avec se code je n'arrive pas a avoir l'adresse émail sur la feuille actif

Cells(nlleLigne, 7) = TextTel.Value
    Cells(nlleLigne, 8) = TextPortable.Value
    Cells(nlleLigne, 9) = TextFax.Value
    Cells(nlleLigne, 10) = TextBox1 & "@" & TextBox2.Value  'Email
                Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextBox1 &  TextBox2" 'Email actif sur la feuille

Je vous remercie de votre aide

Max

 

[bbb38]

Re : Modification de code formulaire

Bonjour maval, Papou-net, le forum,
Une solution en créant une colonne supplémentaire (en attendant une meilleure solution – actuellement, manque d’inspiration).
Cordialement,
Bernard

 

[maval]

Re : Modification de code formulaire

Bonjour Bernard

Non j'ai trouvé il faut ajouter "ActiveSheet."comme ceci

Cells(nlleLigne, 10) = TextBox1 & "@" & TextBox2.Value  'Email
                ActiveSheet.Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextBox1 &

Je te remercie beaucoup.

@+

Max