Déplacer une ligne selon une couleur sur une autre feuille
Résolu/Fermé
A voir également:
- Déplacer une ligne selon une couleur sur une autre feuille
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Supprimer une feuille word - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
14 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 sept. 2014 à 23:20
12 sept. 2014 à 23:20
Bonsoir
Ça ne marchait pas car tu avais crée 2 macros avec le même nom, l'une dans module et l'autre dans le worksheet de la feuille
J'ai reporté celle de la feuille dans le module et supprimé les macros en trop et c'est bon
https://www.cjoint.com/?0Imxvv4aieT
Cdlmnt
Ça ne marchait pas car tu avais crée 2 macros avec le même nom, l'une dans module et l'autre dans le worksheet de la feuille
J'ai reporté celle de la feuille dans le module et supprimé les macros en trop et c'est bon
https://www.cjoint.com/?0Imxvv4aieT
Cdlmnt
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
11 sept. 2014 à 21:26
11 sept. 2014 à 21:26
Bonsoir
Après avoir supprimé la ligne vide du titre (en 7) :
https://www.cjoint.com/?0IlvAKmlwrT
Si les noms des feuilles changent les changer en début de macro (ALT F11 pour voir le code)
Cdlmnt
Après avoir supprimé la ligne vide du titre (en 7) :
https://www.cjoint.com/?0IlvAKmlwrT
Si les noms des feuilles changent les changer en début de macro (ALT F11 pour voir le code)
Cdlmnt
Bonsoir,
Tout d'abord merci, ça marche bien dans l'extrait de fichier que je vous ai envoyé mais sur mon fichier d'origine, ça ne fonctionne pas.
J'ai bien recopier le code dans mon fichier d'origine et renommer f="SORTIE PRESSE RTW"
Je ne vois pas pourquoi, est-ce le nom de la feuille "f" qui peut poser problème ?
Cordialement
Tout d'abord merci, ça marche bien dans l'extrait de fichier que je vous ai envoyé mais sur mon fichier d'origine, ça ne fonctionne pas.
J'ai bien recopier le code dans mon fichier d'origine et renommer f="SORTIE PRESSE RTW"
Je ne vois pas pourquoi, est-ce le nom de la feuille "f" qui peut poser problème ?
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonjour,
j'arrive a résoudre votre probleme mais j'ai inseré une feuil1
Sub Bouton1_Cliquer()
Dim Num As Long
Dim celluletrouvee As Range
Dim Test As Range
Dim ligne As Integer
Dim col As Integer
Dim I As Integer
Dim TxtB As String
Dim L As Integer
'
'
Set celluletrouvee = Range("J:J").Find("X", LookIn:=xlValues, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("valeur pas trouvée !")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("Valeur est Trouvée")
Rows([ligne]).Select
Selection.Cut
Sheets("Feuil1").Select
L = Sheets("Feuil1").Range("a200").End(xlUp).Row + 1
Rows([L]).Select
ActiveSheet.Paste
Sheets("Feuille ").Select
Selection.Delete Shift:=xlUp
End If
End Sub
j'arrive a résoudre votre probleme mais j'ai inseré une feuil1
Sub Bouton1_Cliquer()
Dim Num As Long
Dim celluletrouvee As Range
Dim Test As Range
Dim ligne As Integer
Dim col As Integer
Dim I As Integer
Dim TxtB As String
Dim L As Integer
'
'
Set celluletrouvee = Range("J:J").Find("X", LookIn:=xlValues, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("valeur pas trouvée !")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("Valeur est Trouvée")
Rows([ligne]).Select
Selection.Cut
Sheets("Feuil1").Select
L = Sheets("Feuil1").Range("a200").End(xlUp).Row + 1
Rows([L]).Select
ActiveSheet.Paste
Sheets("Feuille ").Select
Selection.Delete Shift:=xlUp
End If
End Sub
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 sept. 2014 à 13:38
12 sept. 2014 à 13:38
Bonjour
Es tu sûr que les noms des onglets et les noms des feuilles dans la macro sont rigoureusement identiques ?
Il peux y avoir un espace avant ou après dans le nom d'un onglet qu n'est pas visible comme ça, mais comme il n'y en pas dans les noms dans la macro ça bug
Sinon il n'y pas de raison que ça ne fonctionne pas
Cdlmnt
Es tu sûr que les noms des onglets et les noms des feuilles dans la macro sont rigoureusement identiques ?
Il peux y avoir un espace avant ou après dans le nom d'un onglet qu n'est pas visible comme ça, mais comme il n'y en pas dans les noms dans la macro ça bug
Sinon il n'y pas de raison que ça ne fonctionne pas
Cdlmnt
sinane123
Messages postés
8
Date d'inscription
vendredi 12 septembre 2014
Statut
Membre
Dernière intervention
15 septembre 2014
12 sept. 2014 à 13:46
12 sept. 2014 à 13:46
bonjour,
https://www.cjoint.com/?DImnVTH882N
https://www.cjoint.com/?DImnVTH882N
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 sept. 2014 à 15:58
12 sept. 2014 à 15:58
Re
Le code n'est pas celui que je t'avais envoyé mais il fonctionne sauf que tu es obligé de valider pour chaque ligne à archiver ! et qu'il place dans une autre feuille qu'Archives!
Par contre le problème venait bien du nom de ta feuille de base qui est nommée Feuille dans l'onglet AVEC un espace après (il a été repris dans la macro donc ça fonctionne)
Si tu veux que la mienne fonctionne il faut :
-soit remplacer dans la macro le nom de f "Feuille" par "Feuille "
-soit renommer l'onglet en supprimant l'espace après Feuille
Cdlmnt
Le code n'est pas celui que je t'avais envoyé mais il fonctionne sauf que tu es obligé de valider pour chaque ligne à archiver ! et qu'il place dans une autre feuille qu'Archives!
Par contre le problème venait bien du nom de ta feuille de base qui est nommée Feuille dans l'onglet AVEC un espace après (il a été repris dans la macro donc ça fonctionne)
Si tu veux que la mienne fonctionne il faut :
-soit remplacer dans la macro le nom de f "Feuille" par "Feuille "
-soit renommer l'onglet en supprimant l'espace après Feuille
Cdlmnt
sinane123
Messages postés
8
Date d'inscription
vendredi 12 septembre 2014
Statut
Membre
Dernière intervention
15 septembre 2014
Modifié par sinane123 le 12/09/2014 à 18:11
Modifié par sinane123 le 12/09/2014 à 18:11
salut,
le fichier que vous envoyés ne contient aucun code.!!!!
le fichier que vous envoyés ne contient aucun code.!!!!
Bonjour à tous,
Voilà ce que j'ai fait à partir du premier envoi de via55, j'ai remplacer les noms de feuilles et les colonnes "I" et "J" par "N" et "M" sur ligne If....
Ca fonctionnait sur l'exemple de via55, j'aimerais savoir pourquoi ça ne fonctionne pas avec moi.
http://cjoint.com/?3ImtaUBsKwU
Si ça ne fonctionne pas, je testerai ta méthode sinane123
Merci à tous les deux,
Cordialement
Voilà ce que j'ai fait à partir du premier envoi de via55, j'ai remplacer les noms de feuilles et les colonnes "I" et "J" par "N" et "M" sur ligne If....
Ca fonctionnait sur l'exemple de via55, j'aimerais savoir pourquoi ça ne fonctionne pas avec moi.
http://cjoint.com/?3ImtaUBsKwU
Si ça ne fonctionne pas, je testerai ta méthode sinane123
Merci à tous les deux,
Cordialement
sinane123
Messages postés
8
Date d'inscription
vendredi 12 septembre 2014
Statut
Membre
Dernière intervention
15 septembre 2014
12 sept. 2014 à 23:38
12 sept. 2014 à 23:38
bonsoir,
j'ai essayé de modifier votre fichier mes avec mon code vba plus tard je travaille sur la boucle pour déplacer tous les lignes simultanément
https://www.cjoint.com/?DImxLqmMirN
j'ai essayé de modifier votre fichier mes avec mon code vba plus tard je travaille sur la boucle pour déplacer tous les lignes simultanément
https://www.cjoint.com/?DImxLqmMirN
sinane123
Messages postés
8
Date d'inscription
vendredi 12 septembre 2014
Statut
Membre
Dernière intervention
15 septembre 2014
12 sept. 2014 à 23:43
12 sept. 2014 à 23:43
bonsoir,
bon travail Mr via55
bon travail Mr via55
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
13 sept. 2014 à 00:00
13 sept. 2014 à 00:00
Merci sinane123 ;)
Bonjour à tous les deux,
Je vois que j'ai lancé une compétition, c'est bien
Sinane123, effectivement, si on peut supprimer toutes les lignes en même temps et éviter le message valeur trouvée, ce serait super. Je n'ai pas encore transposé ton code dans mon fichier d'origine.
Via55, j'ai bien renommé mes feuilles méticuleusement dans mon fichier d'origine et ça ne fonctionne toujours pas, je ne suis décidément pas douée.
Bonne journée
Cordialement
Je vois que j'ai lancé une compétition, c'est bien
Sinane123, effectivement, si on peut supprimer toutes les lignes en même temps et éviter le message valeur trouvée, ce serait super. Je n'ai pas encore transposé ton code dans mon fichier d'origine.
Via55, j'ai bien renommé mes feuilles méticuleusement dans mon fichier d'origine et ça ne fonctionne toujours pas, je ne suis décidément pas douée.
Bonne journée
Cordialement
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
Modifié par via55 le 13/09/2014 à 09:51
Modifié par via55 le 13/09/2014 à 09:51
Bonjour
J'ai posté un message hier expliquant que le probleme venait que tu avais crée 2 macros avec le même nom une dans Module 1 et une dans le worksheet de la feuille mais tu ne semble pas l'avoir vu
En mettant la bonne macro dans le module et en supprimant les autres ça fonctionne :
https://www.cjoint.com/?0InjZv99Rb9
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
J'ai posté un message hier expliquant que le probleme venait que tu avais crée 2 macros avec le même nom une dans Module 1 et une dans le worksheet de la feuille mais tu ne semble pas l'avoir vu
En mettant la bonne macro dans le module et en supprimant les autres ça fonctionne :
https://www.cjoint.com/?0InjZv99Rb9
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
