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