Problème pour trouver une adresse de cellule [Résolu]

[Runsh63]

Bonjour,

Ci-dessous un bout de code qui ne fonctionne pas. J'avais pourtant l'impression de l'avoir écrit comme il se doit...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim PNLFirstRow As Integer, PNLFirstColumn As Integer, PNLLastRow As Integer, PNLStartRange As Range, PNLMatrix As Range
 
    Set PNLStartRange = .Cells.Find("Net income from sales*", LookIn:=xlValues)
    PNLFirstRow = PNLStartRange.Row
    PNLFirstColumn = PNLStartRange.Column
    PNLLastRow = .Range(.Cells(.Rows.Count, PNLFirstColumn)).End(xlUp).Row
    Set PNLMatrix = .Range(.Cells(PNLFirstRow, PNLFirstColumn), .Cells(PNLLastRow, PNLFirstColumn + 1))
    PNLMatrix.Copy Sheets("Retreated P&L").Range("A2")
 
    Set PNLStartRange = Nothing
    Set PNLMatrix = Nothing
 
    End With

C'est cette ligne qui pose problème à Excel :

Code :

PNLLastRow = .Range(.Cells(.Rows.Count, PNLFirstColumn)).End(xlUp).Row

Pouvez-vous SVP m'aider à rectifier le tir ?
D'avance merci !

[Godzestla]

Salut Duc,

je ne vois pas le WITH !

pour trouver la dernière ligne de la feuille en se basant sur la colonne A, le code est

Code :

        LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row    'Dernière ligne remplie de colonne A (par exemple)

donc appliqué à ton code, cela devrait donner :

Code :

PNLLastRow = .Cells(.Rows.Count, PNLFirstColumn).End(xlUp).Row

Au plaisir

[Jean-Pierre49]

Bonjour,


Pourv eviter cela,

Faire Débogage, Compile VBAproject.

Et la tu aurais vu le manque de With


Bon courage

[Runsh63]

Merci à vos réponses à tous les deux. On ne voit en effet pas le With car il est plus haut dans mon code, et je n'ai collé que cette partie qui me posait problème. Je vais essayé ton code chercheur de bonheur , et je reviens vers vous pour vous tenir au courant.

[Runsh63]

Ca fonctionne parfaitement, merci beaucoup, et bon après-midi !
Votre serviteur

[Godzestla]

[Jean-Pierre49]

Je te comprends Godzestla

[Runsh63]

Toutes mes excuses pour l'oubli du With, la prochaine fois je m'appliquerai à vous envoyer du code cohérent... Sinon c'est vrai que les réponses peuvent ne pas résoudre le problème initial...

[Godzestla]

Toutes mes excuses pour l'oubli du With, la prochaine fois je m'appliquerai à vous envoyer du code cohérent... Sinon c'est vrai que les réponses peuvent ne pas résoudre le problème initial...

Très pertinent. Mais, très sincèrement, si toutes les formulations de questions étaient aussi claires que les tiennes, ce serait..... au minimum beaucoup plus motivant.

[Runsh63]

Merci Godzestla, c'est très (trop) flatteur !