VBA sur excel
Hors ligneClauclau42 Le 22/05/2008 à 12:01 Profil de Clauclau42 Configuration de Clauclau42

Bonjour,
je voudrais créer une macro sur excel qui supprimerais automatiquement une ligne dans un tableau à chaque fois qu'un des cases dans une colonne afficherais "Expédition".
J'ai essayé de le faire sans VBA mais ça ne me semble pas possible ...
Merci de votre aide !!!
--
Clau
Hors ligneWilder Le 24/05/2008 à 16:10 Profil de Wilder Configuration de Wilder

Viconaute Modérateur
Bonjour,

Crée un bouton VBA et insert ce code:

Private Sub CommandButton1_Click()
derlig = Range("A65536").End(xlUp).Row
  For i = 2 To derlig
    If Cells(i, 1).Value = "Expédition" Then Cells(i, 1).EntireRow.Delete
    Next
End Sub



--


Hors ligneClauclau42 Le 24/05/2008 à 16:16 Profil de Clauclau42 Configuration de Clauclau42

Bonjour,
merci pour cette macro mais la ligne : derlig = Range("A65536").End(xlUp).Row    n'est pas acceptée .....
Et sans vouloir trop en demander enfet je suis en stage et maintenant il ne me demande pas seulement de supprimer ces lignes "expédition" mais de les archiver automatiquement dans ue autre feuille ou un autre classeur ... est ce possible ??
Merci encore !!!!!!!!!
--
Clau
Hors ligneWilder Le 24/05/2008 à 18:17 Profil de Wilder Configuration de Wilder

Viconaute Modérateur
ok,

Je travail là-dessus et je te reviens!
--


Hors ligneWilder Le 24/05/2008 à 18:26 Profil de Wilder Configuration de Wilder

Viconaute Modérateur
Et voilà quelque chose de bien:

Private Sub CommandButton1_Click()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "Expédition" Then Rows(i).Cut Sheets(2).Cells(Rows.Count, 1).End(xlUp)(2)
Next

For j = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(j, 1) = "" Then Rows(j).EntireRow.Delete
Next

End Sub
--


Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels