Suppression copie

[popof]

Bonjour le forum et lecteurs

Question du jour :

1/ Avec un petit bouton et un clic, je supprime la ligne sélectionnée et la copie de la feuil1 vers le feuil2

2/ les lignes copiées dans la feuil2 se suivent à +1 ligne

Voilà la théorie dans la pratique je n'y arrive pô :angry:

Merci d'avance

Nota: je ne peux pas joindre le fichier mais si besoin de plus explications ... pas de problèmes

😉

 

[popof]

Re jmps, Hervé

Effectivement acc garde en mémoire l'action précédente, je n'ai malheuresement pas le moyen de tester ce soir mais demain je m'y (re)mets

Je tiens informer

Nota : jmps tu as le fichier complet donc si tu vois des choses bizarres version trés simple pour moi mais trés compliqué n'hésite pas à m'en faire la remarque. :side:

 

[popof]

et hop re moi

re nota : jmps je viens de voir ton message dans l'autres post comme quoi tu n'as pas reçu mon fichier ... c balot ... Donc je vais voir avec la proposition de M. Hervé

Merci à vous deux 🙂

Re fw Nota : jmps y'a que moi qui est le droit de dire que je suis un boulet na 😛

 

[popof]

Re le fil, jmps Hervé bien le bonjour 🙂

C'est ok pour ce petit problème, en inversant le code le probllème est résolu

Merciiiiiiiiii nounouuuuu 😛

 

[djnimo]

Re : Suppression copie

Bonsoir, J'ai essaye d'adapter cette Macro a mon fichier, mais J'ai une simple erreur de syntaxe dont je ne vois pas la cause, quelqu'un voit mon erreur?
Le deboguer me dit Endif sans bloc IF en pointant sur le dernier ENDIF et si je le supprime, Jobtiens une erreur d'execution 1004, la methode rande de l'objet '_worksheet' a echoue... :-( jene comprends pas d'ou ca vient...... Merci

Private Sub CommandButton1_Click()

If Selection.Cells.Count <> 256 Then MsgBox ("Sélectionner une ligne complète ... Merci") Else
If MsgBox("Deplacer?", vbOKCancel, "Attention Deplacement") = vbOK Then
Dim f As Worksheet 'déclare la variable f
Dim dest As Range 'déclare la variable dest
Set f = Sheets("aaa") 'définit la variable f
'définit la variable dest
If f.Range([A1]) = "" Then 'condition : si A1 est vide
Set dest = f.Range([A1]) 'dest = A1
Else 'sinon
Set dest = f.Range([A65536]).End(xlUp).Offset(1, 0) 'dest = première cellule vide de la colonne A
End If 'fin condition
ActiveCell.EntireRow.Cut Destination:=dest 'coupe et copie la ligne de la cellule active
Selection.Delete Shift:=xlUp 'supprime la ligne que l'on vient de copier
Else
End If
End If
End Sub