Ajouter un numéro de ligne

Bonjour le forum

Dans le CommandButton "Nouveau" je souhaiterai insérer la colonne A comme un index de ligne de la feuille "Listing" et "Images"

Cette ligne sert aussi à la modification et à la suppression dans ces mêmes 2 feuilles.

En cas ajout si dans la colonne A de ces 2 feuilles :

rechercher une valeur pleine manquante inferieur à la dernière ligne

si valeur manquante alors ajouter ce numéro sinon dernière ligne +1

En cas de modification idem

en cas de suppression soit suprime la ligne et fin

ou à alors modifier toutes les lignes des 2 feuilles

La colonne A me servira ensuite de référence pour ajouter une image dans la feuille Images

Je joins le fichier déjà codé. Il y aura juste à apporter des modification.

j'ai fait un test mais j'ai béguë

NbLignes = Wsq.Range("A" & .Rows.Count).End(xlUp).Row + 1
        LaLigne = Wsh.Range("A" & .Rows.Count).End(xlUp).Row + 1
        Wsq.Range("BF" & NbLignes) = CmbB_CodeClient.Value        ' ...............................Code Client
        'Wsq.Range("A" & NbLignes) = ActiveCell.FormulaR1C1 = "=R[-1]C+1"

Cordialement

Salut Le_Troll_Du_27

Voici le code que tu cherchais pour, si j'ai bien compris

NbLignes = Wsq.Range("A" & Wsq.Rows.Count).End(xlUp).Row + 1
    LaLigne = Wsh.Range("A" & Wsh.Rows.Count).End(xlUp).Row + 1
    Wsq.Range("BF" & NbLignes) = CmbB_CodeClient.Value        ' ...............................Code Client
    Wsq.Range("A" & NbLignes) = Wsq.Range("A" & NbLignes - 1) + 1

A+

Bonsoir BrumoM45,

tellement évident, à force de rester sur l'userform on ne voit plus l"évidence

Merci car avec cette commande je vais pour incrémenter les logos normalement

Cordialement