Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Salut Romi
En reprenant ton code avec les corrections nécessaire celà donne :
LeNom = Sheets("CREATION").Range("A3")
Sheets("CREATION").Select
Range("A14").Select
Sheets("Coll").Select
Range("A65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("A1").Address
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
End If
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell = Code
End If
Range("b1").Select
Cette solution en l'état fonctionne mais on pourrait faire plus simple
J'ai préféré gardé ta trame
Espérant que celà te convienne
Dis moi !!!!
Bonjour,
Salut Romi
En reprenant ton code avec les corrections nécessaire celà donne :
LeNom = Sheets("CREATION").Range("A3")
Sheets("CREATION").Select
Range("A14").Select
Sheets("Coll").Select
Range("A65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("A1").Address
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
End If
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell = Code
End If
Range("b1").Select
Cette solution en l'état fonctionne mais on pourrait faire plus simple
J'ai préféré gardé ta trame
Espérant que celà te convienne
Dis moi !!!!
Bonjour,
Salut Romi
En reprenant ton code avec les corrections nécessaire celà donne :
LeNom = Sheets("CREATION").Range("A3")
Sheets("CREATION").Select
Range("A14").Select
Sheets("Coll").Select
Range("A65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("A1").Address
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
End If
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell = Code
End If
Range("b1").Select
Cette solution en l'état fonctionne mais on pourrait faire plus simple
J'ai préféré gardé ta trame
Espérant que celà te convienne
Dis moi !!!!
Bonjour,
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Bonjour,
J'essaie depuis quelques temps de créer une macro pour pouvoir extraire
des valeurs d'une cellule et les recopier dans une autre feuille mais le
résultat est un v(b)ide total.
Dans une feuille1 en A3 le critère de sélection : V510
Dans une feuille2 un tableau :
ColonneA ColonneB ColonneC
v152 def c147
v236 lm c589
v698 hg c487
v152 tr c456
v874 zs c879
v236 aq c325
v152 vb c452
Je voudrais qu'en A14 puis sur les lignes suivantes dans la colonne A,
avoir les valeurs de la colonne C
Voici ce que j'ai écrit mais je n'obtiens rien
Sheets("CREATON").Select
Range("A3").Select
LeNom = ActiveCell.Value
Range("A1").Select
Sheets("Coll").Select
Do While ActiveCell = LeNom
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
Range("A14").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
ActiveCell.Offset(1, 0).Select
Loop
Range("b1").Select
End Sub
Merci d'avance
Romi
Salut Romi
En reprenant ton code avec les corrections nécessaire celà donne :
LeNom = Sheets("CREATION").Range("A3")
Sheets("CREATION").Select
Range("A14").Select
Sheets("Coll").Select
Range("A65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("A1").Address
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
End If
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell = Code
End If
Range("b1").Select
Cette solution en l'état fonctionne mais on pourrait faire plus simple
J'ai préféré gardé ta trame
Espérant que celà te convienne
Dis moi !!!!
Bonjour,
Tout d'abord merci pour votre aide
J'ai essayé la proposition de FFO mais j'ai un message à la fin de
l'exécution de la macro :
"Erreur Exécution '1004'
Erreur definie par l'application ou par l'objet"
En cliquant sur débogage : la ligne "ActiveCell.Offset(-1,0).Select" est
surlignée, cepedant toutes les valeurs sont affichées dans la feuille
"CREATION" et serait-il possible de les avoir dans l'ordre croissant.
Mais je suis preneur pour plus simple
Bonne journée
Romi
Salut Romi
En reprenant ton code avec les corrections nécessaire celà donne :
LeNom = Sheets("CREATION").Range("A3")
Sheets("CREATION").Select
Range("A14").Select
Sheets("Coll").Select
Range("A65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("A1").Address
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
End If
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell = Code
End If
Range("b1").Select
Cette solution en l'état fonctionne mais on pourrait faire plus simple
J'ai préféré gardé ta trame
Espérant que celà te convienne
Dis moi !!!!
Bonjour,
Tout d'abord merci pour votre aide
J'ai essayé la proposition de FFO mais j'ai un message à la fin de
l'exécution de la macro :
"Erreur Exécution '1004'
Erreur definie par l'application ou par l'objet"
En cliquant sur débogage : la ligne "ActiveCell.Offset(-1,0).Select" est
surlignée, cepedant toutes les valeurs sont affichées dans la feuille
"CREATION" et serait-il possible de les avoir dans l'ordre croissant.
Mais je suis preneur pour plus simple
Bonne journée
Romi
Salut Romi
En reprenant ton code avec les corrections nécessaire celà donne :
LeNom = Sheets("CREATION").Range("A3")
Sheets("CREATION").Select
Range("A14").Select
Sheets("Coll").Select
Range("A65535").End(xlUp).Select
Do While ActiveCell.Address <> Range("A1").Address
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell.Value = Code
ActiveCell.Offset(1, 0).Select
Sheets("Coll").Select
End If
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = LeNom Then
Code = ActiveCell.Offset(0, 2).Value
Sheets("CREATION").Select
ActiveCell = Code
End If
Range("b1").Select
Cette solution en l'état fonctionne mais on pourrait faire plus simple
J'ai préféré gardé ta trame
Espérant que celà te convienne
Dis moi !!!!
Bonjour,
Tout d'abord merci pour votre aide
J'ai essayé la proposition de FFO mais j'ai un message à la fin de
l'exécution de la macro :
"Erreur Exécution '1004'
Erreur definie par l'application ou par l'objet"
En cliquant sur débogage : la ligne "ActiveCell.Offset(-1,0).Select" est
surlignée, cepedant toutes les valeurs sont affichées dans la feuille
"CREATION" et serait-il possible de les avoir dans l'ordre croissant.
Mais je suis preneur pour plus simple
Bonne journée
Romi
Salut Romi
Je te propose ce code intégrant le tri :
n = 14
Sheets("Coll").Select
For Each c In Worksheets("Coll").Range([A1], [A65535].End(xlUp))
If c = Sheets("CREATION").Range("A3") Then
Sheets("CREATION").Range("A" & n) = c.Offset(0, 2)
n = n + 1
End If
Next
Sheets("CREATION").Select
Range("A14", [A14].End(xlDown)).Select
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Celà te convient-il ???
Dis moi !!!
Salut Romi
Je te propose ce code intégrant le tri :
n = 14
Sheets("Coll").Select
For Each c In Worksheets("Coll").Range([A1], [A65535].End(xlUp))
If c = Sheets("CREATION").Range("A3") Then
Sheets("CREATION").Range("A" & n) = c.Offset(0, 2)
n = n + 1
End If
Next
Sheets("CREATION").Select
Range("A14", [A14].End(xlDown)).Select
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Celà te convient-il ???
Dis moi !!!
Salut Romi
Je te propose ce code intégrant le tri :
n = 14
Sheets("Coll").Select
For Each c In Worksheets("Coll").Range([A1], [A65535].End(xlUp))
If c = Sheets("CREATION").Range("A3") Then
Sheets("CREATION").Range("A" & n) = c.Offset(0, 2)
n = n + 1
End If
Next
Sheets("CREATION").Select
Range("A14", [A14].End(xlDown)).Select
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Celà te convient-il ???
Dis moi !!!