Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Prb avec le code End(xlUp)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Luigi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Luigi

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Prb avec le code End(xlUp)

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

Gilbert

Code: 
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
 
Vote positif 0 Vote négatif
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 😉
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2019 VBA Définir une zone d'impression
Réponses
5
Affichages
887
dadaze
D
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
653
anthoYS
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
641
spike29
S
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
653
safranien
S
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
498
eric72
E
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
4 K
patricktoulon
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
897
DELHOMME
D
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
590
Phil69970
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
874
Lu76Fer
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
M
  • Résolu(e)
Microsoft 365 Erreur code ou pas ?
2
Réponses
17
Affichages
1 K
Marvin57
M
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
748
PHIL37
P
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
908
GClaire
G
D
  • Question Question
XL 2019 sélection ligne avec texte
Réponses
11
Affichages
792
sylvanu
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
752
piga25
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…