Discussion :

[JPDU92]

Bonjour à tous !
Voilà, en fait, je recherche une formule qui me rechercherait dans un tableau la derniére ligne écrite et y rajouterai un numéro qu'elle marquerait en dessous, sachant que cette derniére valeur doit être récupérée pour remplir un userform ! Comprends pas tout à ce niveau ! Sachant que cette valeur doit toujours être dans la colonne A et que le numéro à ajouter serait +1. Merci d'avance.

[tirex28]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Dim NumLigne As Long,Valeur As Long
 
NumLigne = Range("A65536").End(xlUp).Row
 
Valeur = Cells(NumLigne,1).Value + 1
 
Cells(NumLigne + 1,1).Value = Valeur

Cordialement,

Tirex28/

[JPDU92]

Merci beaucoup, je vais essayer ça !

[Bigalo]

Bonsoir,

Depuis Excel 2007, les feuilles Excel sont passées de 65 536 lignes (2^16) à 1 048 576 (2^20).

Dorénavant, il vaut mieux utiliser :

Code :

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

NumLigne =Range("A" & Range("A:A").Rows.Count).End(xlUp).Row

qui a l’avantage de fonctionner quelque soit la version.

[JPDU92]

Merci pour vos réponses mais excel me dit qu'il y a une incompatibilité de type 13 à cette ligne, et j'ai beau cherché, je trouve pas !

Code :

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

1
2
 
Valeur = Cells(NumLigne,1).Value + 1

[Bigalo]

Re,

As-tu donné un type à tes 2 variables, comme :

Code :

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

Dim Valeur As Integer, NumLigne As Integer

et si oui quel est ce type ?

Qu’obtiens-tu avec

Code :

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

1
2
    MsgBox NumLigne
    MsgBox Cells(NumLigne,1)

Si Valeur est numérique et que le contenu de Cells(NumLigne,1) ne l'est pas,

Code :

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

1
2
 
Valeur = Cells(NumLigne,1).Value + 1

renvoie effectivement une erreur de type 13, car cela revient à vouloir affecter à Valeur, quelque chose qui n’est pas numérique

[Invité]

Bonjour JPDU92,

Tirex28 vous a donné la solution :

Code :

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

1
2
3
4
Dim NumLigne As Long,Valeur As Long
NumLigne = Range("A65536").End(xlUp).Row
Valeur = Cells(NumLigne,1).Value + 1
Cells(NumLigne + 1,1).Value = Valeur

Comme le dit Bigalo, il vaut peut-être mieux prévoir et utiliser :

Code :

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

NumLigne =Range("A" & Range("A:A").Rows.Count).End(xlUp).Row

Je me trompe peut-être mais à partir du moment où la procédure recherche systématiquement la dernière ligne utile, si on écrit :

Code :

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

1
2
3
4
5
NumLigne = Range("A65536").End(xlUp).Row + 1
 
ou
 
Range("A:A").Rows.Count).End(xlUp).Row + 1

pourquoi affecter cette valeur en colonne A ?

Dans le code de votre Userform, ne suffit'il pas d'utiliser la variable Numligne pour l'affectation des données ?