Suppression Partielle ligne

Ancien1957 -  
 marc -
Bonjour,

Je voudrais supprimer une ligne propre à un tableau excel 2007 sans pour autant supprimer le contenu des cellules de la même ligne se trouvant en dehors de ce tableau.
J'aimerais utiliser le code VBA.
Merci pour votre aide.
Passez une bonne soirée.

A voir également:

6 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Vous avez bien ecrit suppression partielle!
ex:
Range("C4:G4").Delete Shift:=xlUp
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour à tous les deux

ou bien
Range("C4:G4").ClearContents
qui se contente d'effacer le contenu des cellules

Cdlmnt
0
Ancien1957
 
J'ai oublié de vous dire suppression d'une ligne à l'intérieur d'un tableau dans le cas où cette ligne est vide (Toutes les cellules de cette ligne ne contiennent pas du texte ou des nombres, mais les cellules de la même ligne , en dehors de ce tableau, peuvent en contenir).
Merci mon ami.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

suppression plage de cellules si toutes les cellules sont vides (si j'ai bien compris)
exemple:
Sub test()
    NbCel_Vide = WorksheetFunction.CountBlank(Range("C4:G4"))       'cellules vides
    If NbCel_Vide = 5 Then      '5: de C a G
        Range("C4:G4").Delete Shift:=xlUp       'supprime plage
    End If
    MsgBox NbCel_Vide
End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ancien1957 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Désolé, mais ça n'efface pas les lignes vides.
ça les compte seulement.
A vous.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

ça les compte seulement.
Je compte les CELLULES VIDES pour savoir si la plage est VIDE, pour ensuite supprimer cette PLAGE DE CELLULES SI ELLE EST VIDE
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Re,

Je pense que nous ne voyons pas le problème de la même façon.
Peux tu envoyer la partie concernée de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

Cdlmnt
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour ccm81,

En effet, ligne cellule, colonne ca doit pas etre la meme chose pour lui que pour nous
0
marc > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
 
Bonjour f894009,

Je crois que ancien1957 ne sait pas qu'il faut adapter ton code VBA
à son cas réel : le 5 de « If NbCel_Vide = 5 Then » ; et Range("C4:G4")
2 fois, en ligne #2 et ligne #5.

Cordialement
 
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > marc
 
Bonjour,

Tout a fait Thierry, mais pas que ......
0
marc > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Oui, il y a aussi le commentaire : '5: de C à G
je laisse au demandeur le soin de l'ajuster.
0