VBA : Supprimer ligne d'après son numero

[cheyenne63]

Bonjour
Je voudrai savoir comment, par VBA, supprimer la ligne xxx de la feuille 1 d’après le numéro indiqué dans la cellule B5 de la feuille 2
En d’autre terme, si je marque 265 en B5 de la feuille 2 la macro supprimera la ligne 265 de la feuille 1.

En option, si c'est pas trop demandé, et sans vouloir abuser : Est-ce possible de demander avant l'exécution de la macro, la confirmation dans une ...box de type "Souhaites-tu supprimer de la base .... (contenu des cellules des deux premières colonnes de la dite ligne à supprimer)
Merci d’avance et bon dimanche

 

[cheyenne63]

Re : VBA : Supprimer ligne d'après son numero

Bonjour,
je reviens vers vous car j'ai voulu, dans une autre feuille, adapter le code mais pas pour supprimer mais pour copier cette fois ci.
J'ai donc remplacé delete par paste mais ça bug.
Qu'est-ce que j'ai encore mal fait ?

Sub CopierLigne()
Dim reponse
reponse = MsgBox("veux tu remplacer la ligne : " & Sheets("Feuil1").Range("A" & Sheets("Feuil2").Range("B5")) & " - " & Sheets("Feuil1").Range("B" & Sheets("Feuil2").Range("B5")), vbYesNo)
If reponse = vbYes Then
Range("X11:Z11").Select
    Application.CutCopyMode = False
    Selection.Copy
Sheets("Feuil1").Range("A" & Sheets("Feuil2").Range("B5")).EntireRow.Paste
End If
End Sub

Merci
Bon dimanche

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Bonjour à tous


Tu copies semble-t-il en dehors de la feuille
puisque tu commences en colonne B.

Au lieu de copier la ligne entière, mieux vaux ne copier que les cellules utiles à copier présentes sur la ligne.

Voir ici un exemple proche du tien (où on évite le copier/coller)
https://www.excel-downloads.com/threads/copier-une-ligne-avec-le-numero-de-ligne-variable.197093/

 

[cheyenne63]

Re : VBA : Supprimer ligne d'après son numero

ok
Déjà survolé mais je vais approfondir
Je pensais que c'était simple :
B5 est le numero de ligne "destination"
la ligne à copier (3 cellules) c'est x11 à z11
La feuille 1 doit donc récupérer x11 à z11 dans les colonnes A à C (donc effectivement pas la ligne entière) sur la ligne déterminée en B5 en feuille 2
Allez, je regarde mieux ...
Merci

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re


Dans ce cas, modifies ainsi
copies en B5 simplement , le reste suivra

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re

Ce qui peut donner si tu veux aussi le format

Sub CopierLigneII()
Dim reponse
reponse = MsgBox("veux tu remplacer la ligne : " & Sheets("Feuil1").Cells(Sheets("Feuil2").Range("B5"), "A").Resize(, 2).Address(0, 0), vbYesNo)
If reponse = vbYes Then
Range("X11:Z11").Copy Sheets("Feuil1").Cells(Sheets("Feuil2").Range("B5"), "A")
End If
End Sub

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re

Et donc sans passer par le copier/coller

Sub CopierLigneIII()
Dim reponse, a As Range
Set a = Sheets("Feuil1").Cells(Sheets("Feuil2").Range("B5"), "A")
reponse = MsgBox("Veux tu remplacer la ligne : " & a.Resize(, 3).Address(0, 0), vbYesNo)
If reponse = vbYes Then
a.Resize(, 3).Value = Range("X11:Z11").Value
End If
End Sub

 

[cheyenne63]

Re : VBA : Supprimer ligne d'après son numero

Yeahh !
J'ai adapté le dernier code à mon fichier.
C'est nickel
C'est trop fort
C'est génial
Tu es génial
Merci encore et bon dimanche

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re


Ah la fougue de la jeunesse* (*galanterie d'un autre âge ...parce que ... de nos jours ...pour certains ... 35 ...😉 ) couplée au bon air qu'on respire à Clermont et dans les environs!!
Quel emballement, cheyenne63 !
Tant mieux si cela a pu t'aider mais modères tes ardeurs tu vas me faire rougir 😉

 

[Lone-wolf]

Re : VBA : Supprimer ligne d'après son numero

Bonjour Staple, cheyenne,

@Staple: tiens...😕, je ne savais pas que les indiens te faisait rougir à ce point 😉 .
Un coup de soleil, ça je sais...mais pas les indiens. 😀


A+ 😎

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Bonsoir

@Wolfy
Les indiens non
Les indiennes du Puy-de-Dôme , oui
(surtout si elles ont une décennie de moins que moi)

 

[Lone-wolf]

Re : VBA : Supprimer ligne d'après son numero

RE Staple,

j'ai modifié l'avant-dernier code que tu as proposé, pour qu'il remplace seulement la ligne demandée.

Sub CopierLigne()
Dim reponse
reponse = MsgBox("veux tu remplacer la ligne : " & Sheets("Feuil1").Cells(Sheets("Feuil2").Range("p5"), "A").Resize(, 14).Address(, 0), vbYesNo)
If reponse = vbYes Then
Sheets("Feuil2").Range("p5").EntireRow.Copy Sheets("Feuil1").Cells(Sheets("Feuil2").Range("p5"), "A")
End If
End Sub

A+ 😎

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re

@Wolfy
Pourquoi tu copies la ligne entière dans ce cas??
Sheets("Feuil2").Range("p5").EntireRow.Copy

 

[Lone-wolf]

Re : VBA : Supprimer ligne d'après son numero

Re Staple,

avec le code que tu proposait, ça remplacait toute la feuille. Si je ne met pas EntireRow, seule une cellule est modifiée.

Je met le fichier que j'ai préparé pour voir ce que ça donnait.


A+ 😎

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re


Pour moi l'avant-dernier code que je proposais est dans ce message
https://www.excel-downloads.com/threads/vba-supprimer-ligne-dapres-son-numero.196905/
et ne fait pas ce que tu dis qu'il fait 😉

(Normalement, je teste les codes avant de les soumettre dans les fils)

PS: Cheyenne63 parle de B5, pourquoi donc te v'là ti rendu en P5 ?

 

[Lone-wolf]

Re : VBA : Supprimer ligne d'après son numero

Re,

le sujet est bien: Supprimer ligne d'après son numero, ensuite elle a demander à modifier la ligne.

Avec mon classeur et l'avant-dernière macro, les lignes de 5 à 38 étaient aussi modifiées et le bouton était copié aussi. Comme les lignes vont de A à N, c'est pour celà que j'ai mis P5.


A+ 😎