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

Signaler
Messages postés
14
Date d'inscription
mercredi 10 octobre 2018
Statut
Membre
Dernière intervention
5 décembre 2018
-
eloalou38
Messages postés
14
Date d'inscription
mercredi 10 octobre 2018
Statut
Membre
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! ;)

3 réponses


pas clair donc pas compris
Messages postés
16096
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
27 février 2020
2 880
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
Messages postés
14
Date d'inscription
mercredi 10 octobre 2018
Statut
Membre
Dernière intervention
5 décembre 2018

Bonjour,

Merci, pour ces retour.

Merci, Michel pour ton aide.

(je ne connaissais même pas le code pour masquer! la débile ;) )