 Clauclau42 |
Le 22/05/2008 à 12:01    |
|
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 |
| Wilder |
Le 24/05/2008 à 16:10 |
 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 -- Trop d'intelligence fait partir la sagesse. D'où l'importance de répondre au autres avec grand respect!!!!!!!!! ----------- |
| Clauclau42 |
Le 24/05/2008 à 16:16 |
|
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 |
| Wilder |
Le 24/05/2008 à 18:17 |
| Viconaute Modérateur |
ok,
Je travail là-dessus et je te reviens! -- Trop d'intelligence fait partir la sagesse. D'où l'importance de répondre au autres avec grand respect!!!!!!!!! ----------- |
| Wilder |
Le 24/05/2008 à 18:26 |
| 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
-- Trop d'intelligence fait partir la sagesse. D'où l'importance de répondre au autres avec grand respect!!!!!!!!! ----------- |
20 Viconautes en ligne. Vous êtes ici : Accueil > Logiciel > VBA sur excel