Nouveau sur le Forum j'ai besoin d'un grand coup de main

Question

Je viens de créer une boite de dialogue pour l'enregistrement lors d'une brocante et j'ai un problème, quelqu'un peut-il m'aider merci, je joint l'exemple qui ne fonctionne pas. Private Sub Comajouter_Click() Sheets("registre").Activate Range("A2").Select Selection.End(xlDown).Select Selection.Offset(1, 0).Select ActiveCell = anom.Value ActiveCell.Offset(0, 1).Value = atelephone ActiveCell.Offset(0, 2).Value = astatut ActiveCell.Offset(0, 3).Value = acp ActiveCell.Offset(0, 4).Value = acommune ActiveCell.Offset(0, 5).Value = aadresse ActiveCell.Offset(0, 6).Value = Comattestation ActiveCell.Offset(0, 7).Value = acni ActiveCell.Offset(0, 8).Value = adatecni ActiveCell.Offset(0, 9).Value = aautoritecni ActiveCell.Offset(0, 10).Value = avehicule ActiveCell.Offset(0, 11).Value = acommetres ActiveCell.Offset(0, 13).Value = acompaiement ActiveCell.Offset(0, 14).Value = atitulairecheque ActiveCell.Offset(0, 15).Value = abanque ActiveCell.Offset(0, 16).Value = amontant Sheets("Tableau de Bord").Activate Range("A1").Select...

3GB · Answer

L'erreur vient probablement du fait que lorsqu'il n'y a qu'une ligne remplie (la ligne 2), la méthode end(xldown) renvoie la dernière cellule en colonne 1. Donc selection.offset(1, 0) ne peut marcher car il n'y a plus de ligne ensuite. Voici un essai d'adaptation du code même s'il est possible de mieux faire : Private Sub Comajouter_Click() with Sheets("registre") nl = .cells(.rows.count, 1).end(xlup).row + 1 with .cells(nl, 1) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.value = anom.Value &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 1).Value = atelephone &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 2).Value = astatut &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 3).Value = acp &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 4).Value = acommune &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 5).Value = aadresse &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 6).Value = Comattestation &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 7).Value = acni &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 8).Value = adatecni &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 9).Value = aautoritecni &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 10).Value = avehicule &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 11).Value = acommetres &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 13).Value = acompaiement &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 14).Value = atitulairecheque &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 15).Value = abanque &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Offset(0, 16).Value = amontant &nbsp;&nbsp;&nbsp;&nbsp;end with end with end sub Cdlt...