vba excel dernière ligne de la feuille de calcul

bonjour

Je crée une application de gestion des bénévoles

j'ai 4 pages ;

données générales
entre autre je crée une entrée dans la table combobox1 utilisée dans USERFORM1
cela se fait en rallongement et j'obtiens la dernière ligne via

Code:

---

1 2 3 4 5 6 7 8

If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message l = Sheets("BASE DE GESTION").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE Else: Exit Sub End If   ws.Range("A" & l).Value = (TextBox1 + TextBox8) ws.Range("B" & l).Value = TextBox1 ' ect ect

---

J'utilise la même solution dans la gestion des compétences (USERFORM2)
mais le résultat donne la ligne 0

Code:

---

Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1

---

puis en regardant le tuto j'ai utilisé

Code:

---

l = Sheets("liste competences par personnes").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1

---

avec toujours 0 comme valeur

J'ai parcouru l'explorateur, la doc mais je ne trouve rien

je suis débutant


si quelqu'un 'une) pouvait m'aider ce serait un grand plaisir car je dois finir ma tâche cette semaine

merci d'avance


si besoin je peux envoyer mon fichier

cordialement

Bonjour michelj64,

Peut être :

Code:

---

l = ThisWorkbook.Sheets("liste competences par personnes").Cells(Application.Rows.Count, 1).End(xlUp).Row + 1

---

Bonjour,

Est-ce que ceci fonctionne ?

Code:

---

l = Sheets("liste competences par personnes").Cells(Rows.Count, 1).End(xlUp).Row + 1

---

Si ce n'est pas le cas, merci de nous montrer la procédure complète, le problème est soit lié à la variable en elle-même, soit aux valeurs que tu lui affectes dans la procédure

bonjour

le résultat est identique

comment dois je faire pour l'envoi ?

je pense que le mieux serait d'envoyer le fichier

merci

michel

tu as justes à copier ton code VBA dans un message

une fois que tu l'as copié, tu sélectionnes toutes les lignes et tu appuies sur le bouton qui représente un # (sur la partie haute du cadre où tu écris le message)

ça va faire une mise en forme sur ton code, beaucoup plus pratique à lire pour nous

double faute j'avais oublié de copier l dans ligne !!!!!!

et cela marche

suite2:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

With ComboBox4 MsgBox "1" Set ws4 = Sheets("liste competences par personnes") If MsgBox("Etes-vous certain de vouloir INSERER cette nouvelle compétence ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message ' l = Sheets("liste competences par personnes").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE 'l = Sheets("liste competences par personnes").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1 l = Sheets("liste competences par personnes").Cells(Rows.Count, 1).End(xlUp).Row + 1 Else: Exit Sub End If End With With ComboBox4 ligne = l ws4.Cells(ligne, "A").Value = Me.ComboBox4 ' code+nom+prénom MsgBox "2" ws4.Cells(ligne, "B") = Me.TextBox4 ' code ws4.Cells(ligne, "C") = Me.TextBox5 ' nom ws4.Cells(ligne, "D") = Me.TextBox6 ' prénom ws4.Cells(ligne, "E") = Me.TextBox2 ' partage End With

---

merci beaucoup

michel

je passe le pb résolu