Comment supprimer une ligne dans excel via une macro VB [Résolu]
BAUHAUS44
- Messages postés
- 50
- Date d'inscription
- samedi 19 août 2006
- Statut
- Membre
- Dernière intervention
- 17 juillet 2010
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
A voir également:
- Mortalino
- [déplacé VB6 -> VBA] Supprimer des lignes dans Excel ✓ - Forum - Visual Basic 6
- Ajout d'une ligne dans excel via vb ✓ - Forum - Visual Basic 6
- Supprimer des lignes sous Excel ✓ - Forum - VB.NET
- VBA supprimer des ligne vide excel ;) ✓ - Forum - Visual Basic 6
- Supprimer des lignes dans excel ✓ - Forum - Visual Basic
19 réponses
Meilleure réponse
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
Arf, légère correction :
en VBA :
Sheets("NomFeuille").Rows(N° de la ligne).Delete Shift:=xlUp
en VB6 : (tu dois faire un set de ton Classeur)
xlBook.Sheets("NomFeuille").Rows(N° de la ligne).Delete Shift:=xlUp
(j'ai omis le paramètre Shift, tu as aussi xlDown, xlLeft ou xlRight)
@++
mortalino
en VBA :
Sheets("NomFeuille").Rows(N° de la ligne).Delete Shift:=xlUp
en VB6 : (tu dois faire un set de ton Classeur)
xlBook.Sheets("NomFeuille").Rows(N° de la ligne).Delete Shift:=xlUp
(j'ai omis le paramètre Shift, tu as aussi xlDown, xlLeft ou xlRight)
@++
mortalino
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
223 internautes nous ont dit merci ce mois-ci
- Messages postés
- 11
- Date d'inscription
- mercredi 22 août 2007
- Statut
- Membre
- Dernière intervention
- 3 octobre 2008
ce que j'aimerais faire c'est mettre un bouton"Ajouter article" et quand je clic dessus ca me donne un popup qui me demande "la désignation,le code, et le part nuber) de l'article et quand je clic sur entrée il enregistre la ligne dans le classeur.
j'ai vu dans le forum que tu as resolu beaucoup de problemes.
est ce que tu peux m'aider s'il te plais? et merci d'avance.
j'ai vu dans le forum que tu as resolu beaucoup de problemes.
est ce que tu peux m'aider s'il te plais? et merci d'avance.
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
pour récupérer la première ligne vide dans ton classeur :
Dim PremiereLigneVide As Long
PremiereLigneVide = Range("A65536").End(xlUp).Row + 1
Ensuite, il te faut faut créer un UserForm dans l'éditeur VB, place tes controles et un bouton.
Avec des TextBox sur le UserForm, il te suffit d'appeler la propriété Text du contrôle pour récupérer la valeur.
Et pour l'inscrire dans Excel, faudra se servir de la variable PremiereLigneVide qui contient la valeur de la ligne prête à recevoir une nouvelle donnée :
exemple :
Cells(PremiereLigneVide, 1).Value = TextBox1.Text
Etc..
@++
(
Dim PremiereLigneVide As Long
PremiereLigneVide = Range("A65536").End(xlUp).Row + 1
Ensuite, il te faut faut créer un UserForm dans l'éditeur VB, place tes controles et un bouton.
Avec des TextBox sur le UserForm, il te suffit d'appeler la propriété Text du contrôle pour récupérer la valeur.
Et pour l'inscrire dans Excel, faudra se servir de la variable PremiereLigneVide qui contient la valeur de la ligne prête à recevoir une nouvelle donnée :
exemple :
Cells(PremiereLigneVide, 1).Value = TextBox1.Text
Etc..
@++
(
- Messages postés
- 11
- Date d'inscription
- mercredi 22 août 2007
- Statut
- Membre
- Dernière intervention
- 3 octobre 2008
Done, merci ca marche.
une derniére question et je tembéte plus.
j'au fais un code pour que qunad je clic sur mon fichier excel(sur le bureau) il m'ouvre un userform(page d'accueil) en premier mais ca marche pas.
voici le code:
Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("recette").Cells.ClearContents
Dim marec As recette
Open "TESTFILE" For Random As #1 Len = Len(marec)
merci d'avance
une derniére question et je tembéte plus.
j'au fais un code pour que qunad je clic sur mon fichier excel(sur le bureau) il m'ouvre un userform(page d'accueil) en premier mais ca marche pas.
voici le code:
Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("recette").Cells.ClearContents
Dim marec As recette
Open "TESTFILE" For Random As #1 Len = Len(marec)
merci d'avance
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
En fait, pose ta question normalement sur vbfrance quand tu en as besoins, je passe régulièrement (presque tous les jours) mais il y a aussi d'autres membres réguliers, qui sont très bons et meilleurs que moi en vba (et formules Excel) et qui pourront donc t'aider aussi quand ils passeront
En tout cas, content de t'avoir aidé
@++
<hr width="100%" size="2" />(
En tout cas, content de t'avoir aidé
@++
<hr width="100%" size="2" />(