Discussion :

[michelj64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

puis en regardant le tuto j'ai utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Bonjour michelj64,

Peut être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

Bonjour,

Est-ce que ceci fonctionne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[michelj64]

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

[joe.levrai]

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

[michelj64]

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

et cela marche

suite2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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