Sujet Précédent Sujet Suivant

Excel supprimer des lignes

Fermé
lucho33 Messages postés 15 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 18 juin 2008 - 28 févr. 2008 à 14:22
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 28 févr. 2008 à 22:21
Bonjour à tous,

je viens juste de me mettre à la prog, donc niveau pas très élevé!!!
voici ce que je fais et ce que je cherche à faire!!!

en fait j'importe des données en continue dans un fichier Excel !!!
les données s'affichent sous la forme de 2 colonnes et une multitude de lignes étant donné que c'est en continue!! moi en fait je souhaite, c'est supprimer les cellules A1 et B1 lorsque les cellules A10 et B10 viennent de se remplir. ceci pour faire glisser les valeurs vers le haut!!! et rendre les cellules A10 et B10 vides en attendant la prochaine saisie!!

pourriez vous m'aider????

merci d'avance!!

c'est très basique mais j'avais pensé à
Sub ' glisser les cells'
if cells (A10,B10) >0
range (A1,B1).delete
ligne=ligne-1
end If
End sub

j'ai essayé mais je suis loin du compte!!
A voir également:

2 réponses

Réponse 1 / 2
Utilisateur anonyme
28 févr. 2008 à 14:27
Bonjour,

faire le if pour avoir la bonne condition et ensuite range("A1:B1").delete
0
lucho33 Messages postés 15 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 18 juin 2008 1
28 févr. 2008 à 21:33
merci pour l'info!!

voila la macro:
Sub Macro1()
'
' Macro1 Macro
'
Do Until Range("A10,B10") = 0
If Range("A10,B10") > 0 Then
Range("A1:B1").Select
Selection.Delete
End If
Loop
End Sub

mon pb c'est que dès qu'une valeure s'ajoute ensuite dans les cellules A10 et B10, ca ne se répète pas??? aurais-tu une astuce???
0
Réponse 2 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
28 févr. 2008 à 22:21
Bonsoir tt le monde

a copier coller dans le module feuille voulu ( clic droit sur l'onglet -code - coller)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B10")) Is Nothing Then: Exit Sub
Rows(1).Delete
End Sub

le déclencheur est le changement dans la cellule B10 (faire des essais)

Cordialement,
Michel
0