Supprimer certaines cellules d'une ligne Fermé

Question

Bonjour, 

J'ai créé une Macro afin d'ajouter plusieurs lignes à différents endroit mais j'ai besoin de supprimer les deux premières cellules de ces lignes ajoutées. 

Voici ma Macro :

Private Sub CommandButton3_Click()
ligne = InputBox("N°Ligne", "Ajouter une Tâche")
    For i = 0 To Range("C1").Value - 1 + Range("J2").Value
        Rows(ligne + 1).Offset(i * 78).Offset(i).Insert Shift:=x1Down
    Next i
    For i = Range("C1").Value - 1 + Range("J2").Value To 0 Step -1
        Range("A" & ligne + 1, "B" & ligne + 1).Offset(i * 78).Offset(i).Delete Shift:=x1Up
    Next i

Merci d'avance pour votre aide

ccm81 · Answer

Bonjour

Difficile de décripter ta macro.
Peux tu envoyer un bout 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

ccm81 · Answer

Pour effacer ou supprimer les deux premières cellules d'une plage de lignes, tu peux commencer par la première et en descedants

' efface les contenus des deux premières cellulesPublic Sub OK1()Dim li As LongFor li = 3 To 6  Range("A" & li & ":" & "B" & li).ClearContentsNext liEnd Sub' supprime les deux premières cellules et décale vers la gauche les suivantesPublic Sub OK2()Dim li As LongFor li = 13 To 16  Range("A" & li & ":" & "B" & li).Delete shift:=xlToLeftNext liEnd Sub
Cdlmnt

ccm81 · Answer

Oui !

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

tutur09 · Answer

https://www.cjoint.com/c/FDlucCoKlfA

Voici le lien de mon fichier. 

J'aimerais pouvoir supprimer juste les deux premières cellules des lignes que je rajoute et remonter toutes les valeurs du dessous vers le haut. 
Je ne vois pas bien ce qui ne fonctionne pas dans mon code. 

Merci pour votre aide, 

Cordialement,

ccm81 · Answer

Je ne vois toujours pas bien ce que tu veux faire, mais pour 
- supprimer les deux premières cellules de la ligne li
- les remplacer par les deux cellules situées en dessous
Range("A" & li & ":" & "B" & li).Delete shift:=xlUp

Cdlmnt

tutur09 · Answer

Bonjour, 

Cela ne fonctionne pas. J'avais déjà essayé cette fonction "Range("A" & li & ":" & "B" & li).Delete shift:=xlUp" mais cela me renvoi une erreur. 

Il y a un problème avec le Range().Delete. J'arrive à supprimer une ligne entière mais pas uniquement les deux premières cellules...

Merci pour votre aide en tout cas, 

Cordialement,

ccm81 · Answer

Il y a un problème avec le Range().Delete. J'arrive à supprimer une ligne entière mais pas uniquement les deux premières cellules... ?
http://www.cjoint.com/c/FDmpCSjaT0q 

Cdlmnt

Supprimer certaines cellules d'une ligne

7 réponses

Discussions similaires