Prb avec le code End(xlUp)

[Luigi]

Bonjour à tous,
J'utilise le code ci-dessous pour rechercher la dernière ligne d'une tableau, j'ai déjà réaliser plusieurs macro avec ce code et cela a toujours bien fonctionné. Mais dans le tableau que je réalise actuellement cela ne fonctionne plus??? la seule différence qu'il y a dans ce nouveau tableau c'est que dans l'onglet la feuille est en mode paysage et non en portrait.
Quelqu'un peut-il me renseigner à ce sujet et me donné le bon code.

Derligne = Range("B65536").End(xlUp).Row

Merci

 

[pierrejean]

Re : Prb avec le code End(xlUp)

bonjour Liugi

Bizarre !!!
Peux-tu poster ton fichier (sans données confidentielles)

 

[GCFRG]

Re : Prb avec le code End(xlUp)

Salut luigi
il faut qu'il y ait des données dans la colonne B et que la feuille en question soit activer
si les données sont dans une autre colonne, tu changes B par la lettre de la colonne

Range("b" & .Rows.Count).End(xlUp).Row

sinon
With Sheets("tafeuille")
.Range("b" & .Rows.Count).End(xlUp).Row
end With

je ne pense pas que le mode portait ou paysage change quoi que ce soit!

Gilbert

 

[Luigi]

Re : Prb avec le code End(xlUp)

Merci pour les réponces,

GCFRG c'est essayé avec ton code mais cela ne fonctionne pas où alors je mis suis mal pris.
Ci-joint mon fichier, dans l'onglet "test" ma macro fonctionne bien, mais dans l'onglet "DéfailSecteurUsi" est ne fonctionne pas. Je ne vois pas ou est le problème
merci

 

[jeanpierre]

Re : Prb avec le code End(xlUp)

Bonjour Luigi, pierrejean, GCFRG,

Normal, tu testes la colonne B pour la dernière ligne utilisée, or, sur l'onglet "DéfailSecteurUsi", ta colonne B n'est pas renseignée, donc il colle la ligne sous la dernière cellule renseignée, soit la ligne de titre.

Pour que cela fonctionne il faut que les tâches soient renseignées sur chaque ligne et c'est bon.

Bonne journée.

Jean-Pierre

 

[Luigi]

Re : Prb avec le code End(xlUp)

Merci Jean pierre

A chercher vouloir chercher compliqué, je me suis créer des problèmes qui n’avait pas lieu d’être, merci à tous pour votre aide.

Bonne jounée

 

[GCFRG]

Re : Prb avec le code End(xlUp)

Re bonjour le code pour la Feuille TEST
a adapter pour la feuille DéfailSecteurUsi

Gilbert

Sub AjoutLigne()
With Sheets("Test")
     Dim Derligne As Integer
     Derligne = .Range("b" & .Rows.Count).End(xlUp).Row
     .Range("b" & Derligne + 1).Value = Derligne + 1
     .Range("c" & Derligne + 1).Value = "Val_" & Derligne + 1
     With .Range("b" & Derligne + 1)
          
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
          With .Borders(xlEdgeLeft)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
          With .Borders(xlEdgeTop)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
          With .Borders(xlEdgeBottom)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
          With .Borders(xlEdgeRight)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
     With .Range("c" & Derligne + 1)
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
          With .Borders(xlEdgeLeft)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
          With .Borders(xlEdgeTop)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
          With .Borders(xlEdgeBottom)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
          With .Borders(xlEdgeRight)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
          End With
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
     End With
   
   End With

End Sub

 

[Luigi]

Re : Prb avec le code End(xlUp)

Merci GCFRG

 

[Mattharm]

Re : Prb avec le code End(xlUp)

Bonjour,

Une petite question à propos de la boucle "with"

L'intérêt que je vois est de ne pas répéter tout le temps le début de la syntaxe.
Mais globalement, le code est aussi bien sans boucle "with" ? non ?
Excepté qu'il est plus long et répétitif.

Ou bien la boucle "with" a un autre intérêt que je n'ai pas vu !

Merci 😉

 

[GCFRG]

Re : Prb avec le code End(xlUp)

with sert a designer la feuille dans la quelle le traitement doit avoir lieux
en fait avec Sheets("feuil1") faire
tu n'a pas besoin d'etre dans la feuille en question pour lancer la macro, ne pas oublier les point ".range" car sinon l'action se dérouleras dans la fenetre active
pas besoin d'utiliser de Select
le end with sert a indiquer que pour cette feuille le traitement est terminé,
tu peux alors démarrer le traitement d'une autre feuille avec with Sheets("Nouvellefeuille")

Voilà voilà j'espère avoir été clair

Gilbert

 

[Mattharm]

Re : Prb avec le code End(xlUp)

Ok !
Clear 😉

Merci