La ligne suivante vide pour suite macro.
Résolu/Fermé
Mado27
Messages postés
3
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
1 juin 2007
-
21 mai 2007 à 11:48
christine - 19 oct. 2011 à 22:09
christine - 19 oct. 2011 à 22:09
A voir également:
- Code vba pour passer à la ligne suivante
- Aller à la ligne excel - Guide
- Passer de windows 7 à windows 10 - Guide
- Passer de qwerty a azerty - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
2 réponses
EBasta
Messages postés
37
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
25 mai 2007
31
21 mai 2007 à 12:00
21 mai 2007 à 12:00
Bonjour,
La commande VBA qui permet de retrouver la ligne de la dernière cellule non vide d'une liste est :
ActiveSheet.Cells(LigneDebutListe, ColonneVoulue).End(xlDown).Row
- Par exemple, retrouver la dernière ligne remplie à partir de A3 :
IntLigne=ActiveSheet.Cells(3, 1).End(xlDown).Row
- Retrouver la première ligne de la cellule vide à partir de la cellule A3 :
IntLigne=ActiveSheet.Cells(3, 1).End(xlDown).Row + 1
- Se positionner en cellule vide suivante à partir de la cellule A3 :
Cells(ActiveSheet.Cells(3, 1).End(xlDown).Row + 1, 1).Select
J'espère que cela peut aider.
La commande VBA qui permet de retrouver la ligne de la dernière cellule non vide d'une liste est :
ActiveSheet.Cells(LigneDebutListe, ColonneVoulue).End(xlDown).Row
- Par exemple, retrouver la dernière ligne remplie à partir de A3 :
IntLigne=ActiveSheet.Cells(3, 1).End(xlDown).Row
- Retrouver la première ligne de la cellule vide à partir de la cellule A3 :
IntLigne=ActiveSheet.Cells(3, 1).End(xlDown).Row + 1
- Se positionner en cellule vide suivante à partir de la cellule A3 :
Cells(ActiveSheet.Cells(3, 1).End(xlDown).Row + 1, 1).Select
J'espère que cela peut aider.
21 mai 2007 à 14:45
Peut être me suis-je mal exprimée.
Mon premier tableau contient aujourd'hui 3 lignes (de la ligne 8 à la ligne 10)avec des infos, avec ma macro je les recopie dans un tableau de synthèse et je voudrais me mettre sur la ligne 11 qui est la première ligne ensuite qui est vide ....
Est ce mieux formulé ainsi.
24 mai 2007 à 08:32
En fait ça fonctionne très bien.
Mon problème était dû à un mauvais remplissage du tableau (cases vides dans la colonne de référence) par conséquent la ligne de programme ne pouvait pas fonctionner.
Merci encore.
30 mai 2007 à 16:25
Je vais encore abuser de ta gentillesse et de ton temps.
J'ai bien compris comment détecter la dernière ligne contenant des données.
Mais puis-je faire une sélection de la première ligne de données à la dernière.
Dois-je faire une déclaration de variable ? Si oui peux-tu m'aider ?
Merci.
Modifié par christine le 19/10/2011 à 22:11
je pense que tu as ma réponse mais je suis débutante dans les macros.
je souhaiterais que ma macro s'exécute à la ligne suivante quand j'ouvre le fichier. Il s'agit d'un fichier de Saisie...
Private Sub Workbook_Open()
Dim Numfax As Long
Numfax = Sheets(2).Range("A3").Value
Numfax = Numfax + 1
Sheets(2).Range("A3").Value = Numfax
Merci si tu peux m'aider. Sachant que je suis une débutante, n'hésite pas de m'écrire toute la formule en reprenant la mienne je ferais un copier coller.
Merci