Suprimer certaines colonnes d'une ligne
Résolu
julien
-
julien -
julien -
Bonjour,
Je voudrais savoir comment supprimer certaines colonnes d'une ligne , je m'explique :
Je demande de supprimer une ligne pour une condition données , jusque là tout va bien .
Le problème c'est que dans ma colonne Q et R je ne dois pas supprimer le contenu puisque je m'en sert pour une maccro .
Pouvez vous m'aider à supprimer toute la ligne sauf la colonne Q et R ?
voici mon code :
Public Sub lignes_vides()
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
Dim i As Integer
For i = 881 To 1 Step -1
If Worksheets("Feuil_historique").Cells(i, 2) = "" Then Worksheets("Feuil_historique").Rows(i).Delete
Next i
End Sub
MERCI
Je voudrais savoir comment supprimer certaines colonnes d'une ligne , je m'explique :
Je demande de supprimer une ligne pour une condition données , jusque là tout va bien .
Le problème c'est que dans ma colonne Q et R je ne dois pas supprimer le contenu puisque je m'en sert pour une maccro .
Pouvez vous m'aider à supprimer toute la ligne sauf la colonne Q et R ?
voici mon code :
Public Sub lignes_vides()
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
Dim i As Integer
For i = 881 To 1 Step -1
If Worksheets("Feuil_historique").Cells(i, 2) = "" Then Worksheets("Feuil_historique").Rows(i).Delete
Next i
End Sub
MERCI
A voir également:
- Suprimer certaines colonnes d'une ligne
- Formule moyenne excel plusieurs colonnes - Guide
- Partager photos en ligne - Guide
- Comment faire des colonnes sur word - Guide
- Déplacer une colonne excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
2 réponses
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
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 ..
Effacer ou supprimer telle est la question ?
Ai compris, mais pas ce soir, demain si personne d'autre vous donne réponse
À+
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+
Ok, je regarde la chose
À+
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