Menu

Déplacer une ligne d'une feuille a une autre sans la supprimer. [Résolu]

Messages postés
14
Date d'inscription
mercredi 10 octobre 2018
Dernière intervention
5 décembre 2018
-
Bonjour,

je vais essayer d'être le plus clair possible.
J'ai un tableau Excel avec plusieurs colonnes et plusieurs feuilles.
Je voudrais qu'en colonne BD quand il y a "x" et que je clique sur un bouton. la ligne ce masque dans la première feuille et ce copie dans la deuxième.

j'ai essayer avec ce code mais vue qu'il supprime la ligne sa fait des erreurs sur les formule des autre colonne.
Pour clôturer l’affaire (Mettre x dans colonne clôture et la ligne va dans la feuille clôture) :

Sub Transfert2()
Dim c As Range, cDest As Range

Application.ScreenUpdating = False
With ThisWorkbook
'cDest: La celllule de destination: première cellule vide de la colonne A de Feuil2
With .Worksheets("Cloture")
Set cDest = .Cells(.Rows.Count, "A").End(xlUp)(2)
End With
With .Worksheets("Suivi des Affaires")

'on cherche LA CELLULE contenant x en colonne BD de Feuil1
Set c = .Range("BD:BD").Find("x", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
With c.EntireRow
'On copie toute la ligne trouvée vers cDest
.Copy cDest
'on supprime la ligne trouvée de Suivi des Affaires
.Delete
End With
Set c = Nothing
End If
'on vide notre variable cDest
Set cDest = Nothing
End With
End With
End Sub


Pouvez-vous m'aider?
Merci au futur réponse.
Bonne journée à tous! ;)
Afficher la suite 

Votre réponse

3 réponses

0
Merci
pas clair donc pas compris
Commenter la réponse de MatthieuLeterrier
Messages postés
15543
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 décembre 2018
0
Merci
Bonjour

bin oui, ron code avec Delete demande la destruction de la ligne

'on supprime la ligne trouvée de Suivi des Affaires 
.Delete


pour masquer
.Hidden=true
Commenter la réponse de michel_m
Messages postés
14
Date d'inscription
mercredi 10 octobre 2018
Dernière intervention
5 décembre 2018
0
Merci
Bonjour,

Merci, pour ces retour.

Merci, Michel pour ton aide.

(je ne connaissais même pas le code pour masquer! la débile ;) )
Commenter la réponse de eloalou38