Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

supprimer ligne avec condition cumulée et coller formule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zeltron
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

zeltron

XLDnaute Occasionnel
Bonjour à tout le forum,

Voici mon problème, il concerne:
- la suppression de lignes sur une feuille spécifique ( cf exemple feuille "NN") : avec comme condition d'une part la suppression de toutes les lignes situées en dessous de la ligne comprenant en colonne "B" le mot "sédentaires" (cf exemple) ainsi que la suppression de cette ligne comprenant ce mot. et d'autres part la suppression de toutes les lignes dont la colonne "A" ET la colonne "B" sont vides ( je n'ai pas réussi à trouver des fils concerant cette condition et n'ai pas réussi a adapter les codes proposés sur les fils de suppression de lignes).
- Puis l'insertion d'une colonne avec un titre spécifique en ligne 1 ( le titre est "formule", cf exemple) et une formule pour toutes les autres lignes de cette colonne jusqu'à la dernière ligne dont la colonne "A" est remplie, formule qui est copiée en "E1" de la feuille "Formule". (D'ailleurs sur ce point, est ce une bonne méthode pour intégrer une formule dans une colonne, car interpréter une formule excel ,qui peut être complexe,en VBA n'est pas évident; c'est manière est elle intelligente ?)

J'espère avoir été le plus explicite possible, je me permet de vous joindre un fichier afin que cela soit plus explicite.

N'hésitez pas à me demander plus de détail si cela n'est pas suffisant.

Je vous remercie d'avance pour votre aide

Cordialement

Zeltron
 

Pièces jointes

Trier par date Trier par votes
Re : supprimer ligne avec condition cumulée et coller formule

Salut

Ci joint un peu de code simple mais vu l'heure je suis encore moins bon que la journee.

Sub Suppression()
x = 2
'traitement des lignes avant sedentaire

Do While Cells(x, 2) <> "sédentaires"
If Cells(x, 1).Value = "" And Cells(x, 2).Value = "" Then
Rows(x).EntireRow.Delete
x = x - 1
End If
x = x + 1
Loop

Range("A" & Trim(Str(x)) & ":A65536").EntireRow.Delete

End Sub


Bonne nuit
 
Vote positif 0 Vote négatif
Re : supprimer ligne avec condition cumulée et coller formule

Merci beaucoup lapix de t'interresser à mon pb.

Pour ce qui est de la suppression des lignes cela fonctionne, mais le bouton que j'utilise pour déclencher la macro est sur la feuille "accueil" et la feuille "à traiter" est la feuille "NN", j'ai donc intégrer sur ton les précision suivantes:

Private Sub CommandButton1_Click()
With Sheets("NN")
x = 2
'traitement des lignes avant sedentaire

Do While Cells(x, 2) <> "sédentaires"
If Cells(x, 1).Value = "" And Cells(x, 2).Value = "" Then
Rows(x).EntireRow.Delete
x = x - 1
End If
x = x + 1
Loop

Range("A" & Trim(Str(x)) & ":A65536").EntireRow.Delete
End With
End Sub


Cependant malgré cela la macro s'execute toujours sur la feuille où se trouve le bouton, comment cela se fait il?

De plus peux tu m'expliquer un peu ton code bien qu'il fasse exactement ce que je souhaite je du mal a le comprendre, jusqu'à "Rows(x).EntireRow.Delete " je comprends ensuite j'ai du mal à comprendre.

De plus, si je relance l'action, forcément il n'y a plus en colonne B aucune ligne contenant "sédentaires", dès lors il tourne sans arrêt, aussi que faut il ajouter dans ton code afin de lui dire en quelques sorte: "si en colonne "b" il y a le mot sédentaires" alors dans un premier temps tu supprime les lignes se trouvant en dessous de cette lignes contenant le mot "sédentaires" puis ensuite tu supprimes les lignes dont la colonne "A" ET la colonne "B" sont vides, sinon sil il n' y a aucune ligne en colonne "B" contenant le mot "sédentaires", alors tu supprimme directement toutes les lignes dont la colonne "A" ET la colonne "B" sont vides ???

Merci encore pour ton aide et je vous remercie tous de votre aide future.

Cordialement

Zeltron
 
Vote positif 0 Vote négatif
Re : supprimer ligne avec condition cumulée et coller formule

Bonsoir zeltron, lapix,

zeltron, en complément, ci-joint une autre façon de procéder.

J'ai utilisé le code ci-dessous :
Code: 
[SIZE=2]Sub Traitement()
[COLOR=green]'myDearFriend! - Août 2006[/COLOR]
[COLOR=navy]Dim [/COLOR]Plage[COLOR=navy] As [/COLOR]Range, C[COLOR=navy] As [/COLOR]Range, RAZPlage[COLOR=navy] As [/COLOR]Range
      [COLOR=navy]With[/COLOR] Sheets("NN")
            [COLOR=green]'Insertion de la formule[/COLOR]
            [COLOR=navy]If [/COLOR].Range("C1") = "Formule" [COLOR=navy]Then Exit Sub[/COLOR]
            [COLOR=navy]Set[/COLOR] Plage = .UsedRange.Columns("C")
            Plage.Insert Shift:=xlToRight
            [COLOR=navy]Set[/COLOR] Plage = .UsedRange.Columns("C")
            Sheets("Formule").Range("E1").Copy Plage
            Plage.Range("A1").Value = "Formule"
            [COLOR=green]'Répérer les lignes avec A et B vides[/COLOR]
            [COLOR=navy]For Each[/COLOR] C[COLOR=navy] In [/COLOR]Plage.Cells
                  [COLOR=navy]If [/COLOR]C.Value = "_" [COLOR=navy]Then[/COLOR]
                        [COLOR=navy]If [/COLOR]RAZPlage[COLOR=navy] Is Nothing Then[/COLOR]
                              [COLOR=navy]Set[/COLOR] RAZPlage = C.EntireRow
                        [COLOR=navy]Else[/COLOR]
                              [COLOR=navy]Set[/COLOR] RAZPlage = Union(RAZPlage, C.EntireRow)
                        [COLOR=navy]End If[/COLOR]
                  [COLOR=navy]End If[/COLOR]
            [COLOR=navy]Next[/COLOR] C
            [COLOR=green]'Repérer la ligne avec "sédentaires" en B[/COLOR]
            [COLOR=navy]Set[/COLOR] C = Plage.Find("_sédentaires", LookIn:=xlValues)
            [COLOR=green]'Constitution de la plage de lignes à supprimer[/COLOR]
            [COLOR=navy]If Not [/COLOR]C[COLOR=navy] Is Nothing Then[/COLOR]
                  [COLOR=navy]Set[/COLOR] C = .Range(C.EntireRow, Plage.SpecialCells(xlCell[COLOR=navy]Type[/COLOR]LastCell).EntireRow)
                  [COLOR=navy]Set[/COLOR] RAZPlage = Union(RAZPlage, C)
            [COLOR=navy]End If[/COLOR]
            [COLOR=navy]If Not [/COLOR]RAZPlage[COLOR=navy] Is Nothing Then[/COLOR]
                  RAZPlage.Delete
            [COLOR=navy]End If[/COLOR]
      [COLOR=navy]End With
End[/COLOR] Sub[/SIZE]
Cordialement,
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2016 nouvelle formule avec une condition
Réponses
6
Affichages
587
marc94600
M
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
321
job75
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
427
safranien
S
P
  • Résolu(e)
XL 2019 Masquage et tri.
Réponses
6
Affichages
294
Paulle
P
R
  • Question Question
Microsoft 365 Formule qui sélectionne un ligne et qui récupère la ligne en-dessous
2
Réponses
29
Affichages
843
roro67200
R
C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
370
CB7
C
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
428
DAVID-44-
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
345
Marie.
M
E
  • Question Question
XL 2016 Formule MFC
Réponses
7
Affichages
302
excelnoober
E
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
679
Jaykerz
J
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
260
ndranghettino
N
  • Question Question
Microsoft 365 ajouter une formule dans une ligne de code
Réponses
5
Affichages
301
Dranreb
  • Question Question
Microsoft 365 créer des feuilles automatiques et une formule avec condition de remplissage
Réponses
2
Affichages
416
luno123
A
  • Résolu(e)
Microsoft 365 Compter avec la condition que la valeur suivante ne soit pas 3 - NB.SI.ENS ?
Réponses
8
Affichages
316
sylvanu
E
  • Résolu(e)
Microsoft 365 TS Copie ligne selon condition
Réponses
6
Affichages
333
eric72
E
  • Résolu(e)
XL 2021 tableau de données
Réponses
9
Affichages
491
AtTheOne
  • Résolu(e)
Microsoft 365 Calcul dates d'échéances rappel et probation avec condition
Réponses
5
Affichages
408
JHA
J
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
304
Cousinhub
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
407
LegVal
L
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…