Supprimer deux cellules une ligne sur deux

Fermé
julness - 9 janv. 2009 à 16:27
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 13 janv. 2009 à 17:26
Bonjour,


Je cherche à créer une macro sous Excel me permettant de supprimer deux cellules de la même ligne et ceci une ligne sur deux?
Ex: supprimer C3 et D3 de la ligne 3 puis C5 et D5 de la ligne 5 etc.
Merci beaucoup pour votre aide.
A voir également:

4 réponses

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
9 janv. 2009 à 19:47
Bonsoir,

Tu as oublié de préciser si le décalage des cellules devait se faire vers le haut ou vers la gauche ou ... ?
Et il faut également dire sur quelle colonne (remplie jusqu'en bas) il faut se baser pour savoir s'il faut s'arreter de supprimer.
eric
0
Précisions grâce à eriic:
Le décalage des cellules doit se faire vers le haut.
La suppressions doit se faire sur toutes les lignes en se basant sur la colonne C (pas de restriction car nombre de lignes inconnu).
Merci pour votre aide
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
12 janv. 2009 à 19:09
Bonsoir,

Un exemple de ce que tu peux faire :
Sub SuppLigImpaire()
    Dim i As Long, derlig As Long
    derlig = [C65536].End(xlUp).Row
    derlig = derlig + ((derlig Mod 2) = 0) ' -1 si ligne paire
    For i = derlig To 3 Step -2
        Range("C" & i & ":D" & i).Delete Shift:=xlUp
    Next i
End Sub


Supprime C et D de toutes les lignes impaires de la fin jusqu'à la ligne 3 incluse.

eric
0
Merci mais cela ne marche pas
Une autre idée?
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
13 janv. 2009 à 17:26
Merci mais cela ne marche pas
Si, mais si tu préfères une autre idée plutôt que de voir pourquoi ça ne marche pas chez toi pas de soucis...
0