Aide avec vba sur excel
rodo54
-
rodo54 -
rodo54 -
Bonjour,
je vous sollicite pour faire une macro avec vba pour un tableau excel:
j'ai un tableau excel dont la dernière colonne , la "L", est une colonne comportant des dates de cloture de projet.
Je voudrais créer une macro qui me supprime à chaque fois la ligne complète dont la cellule de la colonne "L" comporte une date de cloture (en gros le projet est fini, je ne souhaite garder à chaque fois que ceux dont je n'ai pas encore de date de cloture)...
j'ai beaucoup de mal avec la programmation, si quelqu'un peut me donner un coup de pouce ce serait super!
merci d'avance.
je vous sollicite pour faire une macro avec vba pour un tableau excel:
j'ai un tableau excel dont la dernière colonne , la "L", est une colonne comportant des dates de cloture de projet.
Je voudrais créer une macro qui me supprime à chaque fois la ligne complète dont la cellule de la colonne "L" comporte une date de cloture (en gros le projet est fini, je ne souhaite garder à chaque fois que ceux dont je n'ai pas encore de date de cloture)...
j'ai beaucoup de mal avec la programmation, si quelqu'un peut me donner un coup de pouce ce serait super!
merci d'avance.
A voir également:
- Aide avec vba sur excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Déplacer colonne excel - Guide
1 réponse
La procédure ci-dessous devrait faire ce que tu souhaite
Sub supp_ligne()
liGne As Integer 'contient le n° de la ligne en cours
colonne As Integer 'le n° de la colonne testée
colonne = 12 'initialisation du n° de colonne (celle qui contient ta date L=12)
For liGne = 2 To 200 Step 1
If Cells(liGne, colonne).Value <> "" Then
Rows(colonne).Select
Selection.Delete Shift:=xlUp
End If
Next liGne
End Sub
Ensuite tu attribue ta macro à un bouton ou sur un evennement sur ta colonne par ex (plus dur)
voilà voilà
Sub supp_ligne()
liGne As Integer 'contient le n° de la ligne en cours
colonne As Integer 'le n° de la colonne testée
colonne = 12 'initialisation du n° de colonne (celle qui contient ta date L=12)
For liGne = 2 To 200 Step 1
If Cells(liGne, colonne).Value <> "" Then
Rows(colonne).Select
Selection.Delete Shift:=xlUp
End If
Next liGne
End Sub
Ensuite tu attribue ta macro à un bouton ou sur un evennement sur ta colonne par ex (plus dur)
voilà voilà
Etant une buse sur VBA...je te pose encore une petite question: je n'ai juste qu'à enlever tes commentaires de la procédure et inscrire celle ci dans VBA puis attribuer la macro à un bouton et ça devrait marcher?