Discussion :

[felixcp]

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[blanka347]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ca ne serait pas "cut" par hasard ?

[felixcp]

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

[jfontaine]

Est ce ok avec de code

Le tableau est dans les colonnes A à D

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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