Excel supprimer des lignes
lucho33
Messages postés
15
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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!!
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:
- Excel supprimer des lignes
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer page word - Guide
- Word et excel gratuit - Guide
- Supprimer pub youtube - Accueil - Streaming
2 réponses
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
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
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???