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
MichDenis
Dim Rg As Range With Worksheets("Feuil1") ' nom feuille à adapter Set Rg = .Cells.Find(What:="Divers", LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase _ :úlse, SearchFormat:úlse) If Not Rg Is Nothing Then Rg.Offset(-1).PasteSpecial xlValues End If End With
"circaete" a écrit dans le message de news:
Dans la colonne A, je voudrais sélectionner la cellule située au dessous de celle qui contient un mot particulier, "Divers" dans mon cas
Le code suivant me permet de sélectionner la cellule qui contient "Divers":
Je voudrais coller le contenu du presse papier dans la cellule située juste en dessous
Comment déplacer la sélection d'une ligne vers le bas ?
Merci de votre aide
Dim Rg As Range
With Worksheets("Feuil1") ' nom feuille à adapter
Set Rg = .Cells.Find(What:="Divers", LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase _
:úlse, SearchFormat:úlse)
If Not Rg Is Nothing Then
Rg.Offset(-1).PasteSpecial xlValues
End If
End With
"circaete" <circaete@discussions.microsoft.com> a écrit dans le message de news:
4E549A77-F8EA-404B-9525-11E38923B685@microsoft.com...
Dans la colonne A, je voudrais sélectionner la cellule située au dessous de
celle qui contient un mot particulier, "Divers" dans mon cas
Le code suivant me permet de sélectionner la cellule qui contient "Divers":
Dim Rg As Range With Worksheets("Feuil1") ' nom feuille à adapter Set Rg = .Cells.Find(What:="Divers", LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase _ :úlse, SearchFormat:úlse) If Not Rg Is Nothing Then Rg.Offset(-1).PasteSpecial xlValues End If End With
"circaete" a écrit dans le message de news:
Dans la colonne A, je voudrais sélectionner la cellule située au dessous de celle qui contient un mot particulier, "Divers" dans mon cas
Le code suivant me permet de sélectionner la cellule qui contient "Divers":
Je voudrais coller le contenu du presse papier dans la cellule située juste en dessous
Comment déplacer la sélection d'une ligne vers le bas ?
Merci de votre aide
circaete
merci ça marche mais avec Rg.Offset(+1).
Dim Rg As Range With Worksheets("Feuil1") ' nom feuille à adapter Set Rg = .Cells.Find(What:="Divers", LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase _ :úlse, SearchFormat:úlse) If Not Rg Is Nothing Then Rg.Offset(-1).PasteSpecial xlValues End If End With
"circaete" a écrit dans le message de news:
Dans la colonne A, je voudrais sélectionner la cellule située au dessous de celle qui contient un mot particulier, "Divers" dans mon cas
Le code suivant me permet de sélectionner la cellule qui contient "Divers":
Je voudrais coller le contenu du presse papier dans la cellule située juste en dessous
Comment déplacer la sélection d'une ligne vers le bas ?
Merci de votre aide
merci ça marche mais avec Rg.Offset(+1).
Dim Rg As Range
With Worksheets("Feuil1") ' nom feuille à adapter
Set Rg = .Cells.Find(What:="Divers", LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase _
:úlse, SearchFormat:úlse)
If Not Rg Is Nothing Then
Rg.Offset(-1).PasteSpecial xlValues
End If
End With
"circaete" <circaete@discussions.microsoft.com> a écrit dans le message de news:
4E549A77-F8EA-404B-9525-11E38923B685@microsoft.com...
Dans la colonne A, je voudrais sélectionner la cellule située au dessous de
celle qui contient un mot particulier, "Divers" dans mon cas
Le code suivant me permet de sélectionner la cellule qui contient "Divers":
Dim Rg As Range With Worksheets("Feuil1") ' nom feuille à adapter Set Rg = .Cells.Find(What:="Divers", LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase _ :úlse, SearchFormat:úlse) If Not Rg Is Nothing Then Rg.Offset(-1).PasteSpecial xlValues End If End With
"circaete" a écrit dans le message de news:
Dans la colonne A, je voudrais sélectionner la cellule située au dessous de celle qui contient un mot particulier, "Divers" dans mon cas
Le code suivant me permet de sélectionner la cellule qui contient "Divers":
