Suprimer certaines colonnes d'une ligne
Résolu/Fermé
A voir également:
- Suprimer certaines colonnes d'une ligne
- Hors ligne instagram - Guide
- Aller à la ligne excel - Guide
- Vente en ligne particulier - Guide
- Déplacer une colonne excel - Guide
- Partage de photos en ligne - Guide
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
9 févr. 2016 à 18:01
9 févr. 2016 à 18:01
Bonjour,
si j'ai bien compris votre demande:
si j'ai bien compris votre demande:
Sub efface()
Dim TQR
'adapter le nom de feuille
With Worksheets("feuil1")
'derniere cellule non vide colonne Q
derlig = .Range("Q" & Rows.Count).End(xlUp).Row
'mise en memoire plage Q-R
TQR = .Range("Q1:R" & derlig)
'RAZ de la feuille
.Cells.ClearContents
'restitution des donnees Q-R
.Range("Q1:R" & derlig) = TQR
End With
End Sub
9 févr. 2016 à 18:13
Les données que j'ai rentré en colonne (Q1;Q347) et (R1;R47) sont des valeurs fixes qui sont présentes avant exécution de ma maccro.
Le problème c'est que dans une de mes maccros j'efface la ligne entière si une case vide est détecté dans une certaine colonne alors que je voudrais n'effacer que de A à P et de R à V , en bref que malgrés ma suppression de ligne les données présente dans Q et R ne s'efface en aucun cas.
Peut-être un peu plus clair , quoique ..
9 févr. 2016 à 18:42
Effacer ou supprimer telle est la question ?
Ai compris, mais pas ce soir, demain si personne d'autre vous donne réponse
À+
10 févr. 2016 à 08:52
C'est bien supprimer la ligne et non remplacé puisque je dois avoir une maccros de démasquage pour enlever mes filtres et cela ne doit surtout pas afficher ces lignes inutiles.. Merci de ton aide
A+
Modifié par f894009 le 10/02/2016 à 12:04
Ok, je regarde la chose
À+
10 févr. 2016 à 12:05
Sub Supprime_Ligne() Application.ScreenUpdating = False 'adapter le nom de feuille With Worksheets("feuil1") 'derniere cellule non vide utilisee sur la feuille derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row For L = derlig To 1 Step -1 If .Range("B" & L) = Empty And L > 341 Then .Range("A" & L & ":V" & L).Delete Shift:=xlUp ElseIf .Range("B" & L) = Empty And (L <= 341 And L > 47) Then .Range("A" & L & ":P" & L & ", R" & L & ":V" & L).Delete Shift:=xlUp ElseIf .Range("B" & L) = Empty And L <= 47 Then .Range("A" & L & ":P" & L & ", S" & L & ":V" & L).Delete Shift:=xlUp End If Next L End With Application.ScreenUpdating = True MsgBox "Suppression ligne(s) terminee" End Sub