couper coller sous VBA

Version imprimable

13/09/2011, 20h08
felixcp

couper coller sous VBA

Je débute sous VBA avec Excel 2007 je dois couper une ligne dans un tableau d'une feuille et la coller dans un autre tableau dans une autre feuille et cela régulièrement. Jusqu'à maintenant, j'arrive à sélectionner la ligne mettre mes alertes mais pas moyen de couper et coller. Merci de votre aide
13/09/2011, 20h13
jfontaine

Bonjour,

Ci dessous le code pour copier la ligne 1 de la feuil1 en ligne 2 de la feuil2

Code:

Sheets("Feuil1").Rows(1).Copy Sheets("Feuil2").Rows(2)

Que veux tu dire part "mettre mes alertes"

EDIT ; en effet, comme le dit Blanka347, si couper alors mettre Cut à la place de Copy
13/09/2011, 20h43
blanka347

Code:

Sheets("Feuil1").Rows(1).Copy Sheets("Feuil2").Rows(2)

Ca ne serait pas "cut" par hasard ?
14/09/2011, 06h01
felixcp

couper coller

Bonjour et merci de votre aide

je vais être plus clair
J'ai un tableau de suivi ou suivant le résultat je dois couper la ligne. Dans mon idée, je clique sur un bouton en userform, un premier message me demande de sélectionner une ligne, je sélectionne ma ligne, une alerte me demande de confirmer oui/non puis cela coupe pour coller dans un autre tableau dans une autre feuille. En cas d'une nouvelle sélection, même chose mais cela colle en dessous de la premiere. Mon problème tout se passe bien bien jusqu'à couper. Cela ne marche pas.
Merci encore

Est ce ok avec de code

Le tableau est dans les colonnes A à D

Code:

1
2
3
4
5
6
7
8
9
Dim i As Long
 
i = InputBox("ligne a copier")
 
If MsgBox("confirmer la copie", vbYesNo) = vbYes Then
 
    Sheets("Feuil1").Range("A" & i & ":D" & i).Cut Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1)
 
End If

couper coller

Pas moyen de m'en sortir.

Je vous glisse mon projet que j'arrive pas à finir. Pouvez vous me dire comment finir? Je sais que je ne suis pas loin de la solution mais je bloque
Si vous avez une idée je suis prenneur. Merci à tous pour votre patience.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub CommandButton_Suppression_de_ligne_Click() Dim ChoixRows As Range Dim AConfirmer ' Choix des lignes Set ChoixRows = Application.InputBox( _ Prompt:="Sélectionnez la ligne à couper", _ Title:="Choix de la ligne", _ Type:=8) ' Sélection de la ligne ' Demande de confirmation ChoixRows.Select AConfirmer = MsgBox( _ Prompt:="Confirmez la suppression de la ligne", _ Title:="Suppression de la ligne", _ Buttons:=vbYesNo + vbExclamation + _ vbDefaultButton2) If AConfirmer = vbYes Then ChoixRows.Cut Sheets("V8X Réformé").Select End Sub
Mon problème:
J'arrive pas à sélectionner ma page ("V8X Réformé") et coller mon résultat dans la case ("B7") puis prévoir une nouvelle ligne pour la prochaine opération de couper coller.

Essais comme cela (je me suis attardé sur cette ligne en considérant que le code qui précède fonctionne)
Code:

1 2 3 4 If AConfirmer = vbYes Then ChoixRows.Cut Sheets("V8X Réformé").Range("B" & Sheets("V8X Réformé").Range("B65536").End(xlup).row +1) End If

16/09/2011, 06h14
felixcp

couper coller

Bonjour,

pas moyen....Pourtant, il me reste plus cas coller. j'ai même pas un defaut qui remonte avec ma conbinaison.

J'ai inséré tes lignes à la suite et j'ai un défaut 1004. Quand je déchiffre ta solution cela me parrait logique.
je galère.....

pas d'autre idées? dans l'ensemble le début est bon? peut être trop compliqué? j'ai mis des heures à faire cela.
Merci encore de ton aide.
16/09/2011, 07h59
gFZT82

Bonjour,

Si tu coupes une ligne entière, tu dois coller une ligne entière.

Pour vérifier, essaie avec

Code:

ChoixRows.Cut Sheets("V8X Réformé").Range("A" & Sheets("V8X Réformé").Range("B65536").End(xlup).row +1)

Cordialement.
16/09/2011, 13h58
felixcp

Couper coller

Superrrrrr....
Un grand merci à tous pour votre aide.
Cela marche comme j'avais presque prévu. Reste un point non prévu, dans le premier tableau (ligne que je coupe) il me reste la ligne en blanc.
Question, dois je incorporer une ligne de suppression juste après "couper" ou une fois que la fonction coller est effectuée.
J'attend votre avis mais je suis super motivé pour la suite encore merci
16/09/2011, 14h07
jfontaine

Tu peux supprimer ta ligne vide

Code:

ChoixRows.Delete

Attention, après le couper–coller la plage ChoixRows a changé d’adresse.
Le numéro de ligne correspond à celui du collage.

Si tu codes

Code:

ChoixRows.Delete

tu ne vas pas supprimer la bonne ligne.

Le plus simple, c’est de remplacer cut par copy.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton_Suppression_de_ligne_Click()
Dim ChoixRows As Range
Dim AConfirmer
    ' Choix de la ligne
    Set ChoixRows = Application.InputBox(Prompt:="Sélectionnez la ligne à couper", Title:="Choix de la ligne", Type:=8)
    ' Sélection de la ligne
    ChoixRows.Select
    ' Demande de confirmation
    AConfirmer = MsgBox(Prompt:="Confirmez la suppression de la ligne", Title:="Suppression de la ligne", Buttons:=vbYesNo + vbExclamation + vbDefaultButton2)
    ' Copie de la ligne
    If AConfirmer = vbYes Then ChoixRows.Copy Sheets("V8X Réformé").Range("A" & Sheets("V8X Réformé").Range("B65536").End(xlUp).Row + 1)
    ' Suppression de la ligne
    ChoixRows.Delete
End Sub

Cordialement.

16/09/2011, 19h09
felixcp

couper coller

merci de votre aide et de votre rapidité.

bonne soirée