Je recherche une macro simple me permettant de selectionner une valeur
prédéfinie dans une colonne et de la recopier immédiatement sur la cellule
située en dessous.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Salut P19,
Peut-être que :
Sub Copier_En_Dessous() Set ici = [D:D].Find(what:="mot") ici.Copy ici(2, 1) End Sub
Serge
"P19" a écrit dans le message de news:
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
Salut P19,
Peut-être que :
Sub Copier_En_Dessous()
Set ici = [D:D].Find(what:="mot")
ici.Copy ici(2, 1)
End Sub
Serge
"P19" <P19@discussions.microsoft.com> a écrit dans le message de news: 8200D3D7-1424-46E4-A176-2D0F8F42B5B6@microsoft.com...
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur
prédéfinie dans une colonne et de la recopier immédiatement sur la cellule
située en dessous.
Sub Copier_En_Dessous() Set ici = [D:D].Find(what:="mot") ici.Copy ici(2, 1) End Sub
Serge
"P19" a écrit dans le message de news:
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
Ellimac
Bonjour,
Sub Macro1() Columns(1).Find(What:="46").Activate Selection.Copy ActiveCell.Offset(1) End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
Bonjour,
Sub Macro1()
Columns(1).Find(What:="46").Activate
Selection.Copy ActiveCell.Offset(1)
End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur
prédéfinie dans une colonne et de la recopier immédiatement sur la cellule
située en dessous.
Sub Macro1() Columns(1).Find(What:="46").Activate Selection.Copy ActiveCell.Offset(1) End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
garnote
Mieux ainsi :
Sub Copier_En_Dessous() On Error GoTo FIN Set ici = [D:D].Find(what:="mot", lookat:=xlWhole) ici.Copy ici(2, 1) Exit Sub FIN: MsgBox "Mot inexistant dans cette colonne." End Sub
Si le mot recherché dans une cellule peut être précédé ou suivi d'autres caractères, remplace xlWhole par XlPart
Serge
"garnote" a écrit dans le message de news: %
Salut P19,
Peut-être que :
Sub Copier_En_Dessous() Set ici = [D:D].Find(what:="mot") ici.Copy ici(2, 1) End Sub
Serge
"P19" a écrit dans le message de news:
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
Mieux ainsi :
Sub Copier_En_Dessous()
On Error GoTo FIN
Set ici = [D:D].Find(what:="mot", lookat:=xlWhole)
ici.Copy ici(2, 1)
Exit Sub
FIN:
MsgBox "Mot inexistant dans cette colonne."
End Sub
Si le mot recherché dans une cellule peut être précédé
ou suivi d'autres caractères, remplace xlWhole par XlPart
Serge
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23SxTARAEIHA.3884@TK2MSFTNGP05.phx.gbl...
Salut P19,
Peut-être que :
Sub Copier_En_Dessous()
Set ici = [D:D].Find(what:="mot")
ici.Copy ici(2, 1)
End Sub
Serge
"P19" <P19@discussions.microsoft.com> a écrit dans le message de news: 8200D3D7-1424-46E4-A176-2D0F8F42B5B6@microsoft.com...
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur
prédéfinie dans une colonne et de la recopier immédiatement sur la cellule
située en dessous.
Sub Copier_En_Dessous() On Error GoTo FIN Set ici = [D:D].Find(what:="mot", lookat:=xlWhole) ici.Copy ici(2, 1) Exit Sub FIN: MsgBox "Mot inexistant dans cette colonne." End Sub
Si le mot recherché dans une cellule peut être précédé ou suivi d'autres caractères, remplace xlWhole par XlPart
Serge
"garnote" a écrit dans le message de news: %
Salut P19,
Peut-être que :
Sub Copier_En_Dessous() Set ici = [D:D].Find(what:="mot") ici.Copy ici(2, 1) End Sub
Serge
"P19" a écrit dans le message de news:
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
P19
Merci.
Et si par hasard, je veux renouveller l'opération plus bas dans ma feuille ?
D'avance merci. -- P19
Bonjour,
Sub Macro1() Columns(1).Find(What:="46").Activate Selection.Copy ActiveCell.Offset(1) End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
Merci.
Et si par hasard, je veux renouveller l'opération plus bas dans ma feuille ?
D'avance merci.
--
P19
Bonjour,
Sub Macro1()
Columns(1).Find(What:="46").Activate
Selection.Copy ActiveCell.Offset(1)
End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur
prédéfinie dans une colonne et de la recopier immédiatement sur la cellule
située en dessous.
Et si par hasard, je veux renouveller l'opération plus bas dans ma feuille ?
D'avance merci. -- P19
Bonjour,
Sub Macro1() Columns(1).Find(What:="46").Activate Selection.Copy ActiveCell.Offset(1) End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
Ellimac
Re,
Pour atteindre la dernière occurence :
Sub Toto() n = Application.CountIf(Columns(1), 46) For cpt = 1 To n Columns(1).Find(What:="46", After:¬tiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Activate Next End Sub
Camille
Merci.
Et si par hasard, je veux renouveller l'opération plus bas dans ma feuille ?
D'avance merci. -- P19
Bonjour,
Sub Macro1() Columns(1).Find(What:="46").Activate Selection.Copy ActiveCell.Offset(1) End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Quelqu'un a t'il la solution SVP ? D'avance merci.
-- P19
Re,
Pour atteindre la dernière occurence :
Sub Toto()
n = Application.CountIf(Columns(1), 46)
For cpt = 1 To n
Columns(1).Find(What:="46", After:¬tiveCell, LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Activate
Next
End Sub
Camille
Merci.
Et si par hasard, je veux renouveller l'opération plus bas dans ma feuille ?
D'avance merci.
--
P19
Bonjour,
Sub Macro1()
Columns(1).Find(What:="46").Activate
Selection.Copy ActiveCell.Offset(1)
End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur
prédéfinie dans une colonne et de la recopier immédiatement sur la cellule
située en dessous.
Sub Toto() n = Application.CountIf(Columns(1), 46) For cpt = 1 To n Columns(1).Find(What:="46", After:¬tiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Activate Next End Sub
Camille
Merci.
Et si par hasard, je veux renouveller l'opération plus bas dans ma feuille ?
D'avance merci. -- P19
Bonjour,
Sub Macro1() Columns(1).Find(What:="46").Activate Selection.Copy ActiveCell.Offset(1) End Sub
Camille
Bonjour,
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.
Je recherche une macro simple me permettant de selectionner une valeur
prédéfinie dans une colonne et de la recopier immédiatement sur la cellule
située en dessous.
Je recherche une macro simple me permettant de selectionner une valeur prédéfinie dans une colonne et de la recopier immédiatement sur la cellule située en dessous.