Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copier- Coller

Copier- Coller

2 réponses
Avatar
Bastien
Bonjour,
J'ai la formule suivante qui fait un copier de ma cellule active
(ainsi que la cellule du bas) et qui la recolle dans un autre de mes
feuiilles


Private Sub test()
Dim AnyString, MyStr
AnyString = ActiveCell.Text
MyStr = Left(AnyString, 3)
If MyStr = "M.O" Then
MsgBox "VOUS N'AVEZ PAS SELECTIONNER LA BONNE CELLULE SVP RECOMMENCER",
vbInformation
Else
Range(ActiveCell, ActiveCell.Offset(1, 0)).EntireRow.Copy
MaFeuille.Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
ActiveCell.Select
End If
End Sub

Tout sa fonctionne bien mais ce que je voudrais c'est que lorsqu'il recolle
mes cellules et bien que la colonne G soit = a ma feuille copier !
car la pour le moment si je copie A1 "rouge" et bien il me recolle A1
"rouge" . mais pour la colonne G exemple: G1 je voudrait que sa marque G1
=mafeuille1!G1


donc sa donnerai ca mettont ....

feuill1 que je copie
A1 B1 C1 ..... G1
rouge jaune bleu mauve
A2 B2 C2 .... G2
bleu Vert Bleu Orange

Feuil2 que je colle

A1 B1 C1 ..... G1
rouge jaune bleu =feuil1!G1
A2 B2 C2 ..... G2
bleu Vert Bleu =feuil1!G1

tk je ses pas si je reussi a bien me faire comprendre mais bon si ya une
solution possible svp m'en faire part
merci de votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
anonymousA
bonjour,

un peu remanié dans la copie pour tenir compte du fait que l'activecell
de la feuille MaFeuille peut être dans une colonne différente de la
colonne A ce qui c'est le cas occasionne un plantage.J'ai donc par
précaution décidé de faire copier sur la feuille MaFeuille à la même
adresse que la feuille source.

Dim AnyString, MyStr
AnyString = ActiveCell.Text
MyStr = Left(AnyString, 3)
If MyStr = "M.O" Then
MsgBox "VOUS N'AVEZ PAS SELECTIONNER LA BONNE CELLULE SVP
RECOMMENCER", vbInformation
Else
Range(ActiveCell, ActiveCell.Offset(1, 0)).EntireRow.Copy

tamp = ActiveCell.Address
With MaFeuille
.Range(tamp).PasteSpecial
Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(1, 6)).Copy
.Activate
.Range(tamp).Offset(0, 6).Select
.Paste Link:=True
End With
Application.CutCopyMode = False

End If

A+

Bonjour,
J'ai la formule suivante qui fait un copier de ma cellule active
(ainsi que la cellule du bas) et qui la recolle dans un autre de mes
feuiilles


Private Sub test()
Dim AnyString, MyStr
AnyString = ActiveCell.Text
MyStr = Left(AnyString, 3)
If MyStr = "M.O" Then
MsgBox "VOUS N'AVEZ PAS SELECTIONNER LA BONNE CELLULE SVP RECOMMENCER",
vbInformation
Else
Range(ActiveCell, ActiveCell.Offset(1, 0)).EntireRow.Copy
MaFeuille.Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
ActiveCell.Select
End If
End Sub

Tout sa fonctionne bien mais ce que je voudrais c'est que lorsqu'il recolle
mes cellules et bien que la colonne G soit = a ma feuille copier !
car la pour le moment si je copie A1 "rouge" et bien il me recolle A1
"rouge" . mais pour la colonne G exemple: G1 je voudrait que sa marque G1
=mafeuille1!G1


donc sa donnerai ca mettont ....

feuill1 que je copie
A1 B1 C1 ..... G1
rouge jaune bleu mauve
A2 B2 C2 .... G2
bleu Vert Bleu Orange

Feuil2 que je colle

A1 B1 C1 ..... G1
rouge jaune bleu þuil1!G1
A2 B2 C2 ..... G2
bleu Vert Bleu þuil1!G1

tk je ses pas si je reussi a bien me faire comprendre mais bon si ya une
solution possible svp m'en faire part
merci de votre aide




Avatar
Bastien
ok ta bien comprit ce que je voulais sa fonctionne bien mais fadrait qu'il
ce colle ou j'etait au par avant dans cette page !
exemple en premier lieu j'execute cette macro....

Public MaFeuille As Object
__________________________________

Private Sub toto()
Set MaFeuille = ActiveSheet
Set Target = ActiveCell
Set ints = Application.Intersect(Target, Range("A1:IV65536"))
Dim AnyString, MyStr
AnyString = ActiveCell.Text
MyStr = Left(AnyString, 3)
If MyStr = "M.O" Then
MsgBox "VOUS N'AVEZ PAS SELECTIONNER LA BONNE CELLULE SVP RECOMMENCER",
vbInformation
Else
If Not ints Is Nothing Then
On Error Resume Next
addr = Sheets("Items").Cells.Find(What:=[Target], After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _
, SearchFormat:úlse).Address
If Not addr = Empty Then
Application.Goto Sheets("Items").Range(addr)
Else
MsgBox "Cette Valeur Existe Pas"
End If
End If
End If
End Sub
____________________________________

ensuite j'execute celle que tu ma changer mais le probleme c'est qui recolle
sa dans le bas de ma page car ou j'ai copier cest dans le bas de la page .
j'aimerai si possible que sa ce colle a la meme place que j'etait l'orsque
j'ai executer ma macro toto

merci de ton aide :)


"anonymousA" a écrit dans le message de news:
430cb6f5$0$7862$
bonjour,

un peu remanié dans la copie pour tenir compte du fait que l'activecell de
la feuille MaFeuille peut être dans une colonne différente de la colonne A
ce qui c'est le cas occasionne un plantage.J'ai donc par précaution décidé
de faire copier sur la feuille MaFeuille à la même adresse que la feuille
source.

Dim AnyString, MyStr
AnyString = ActiveCell.Text
MyStr = Left(AnyString, 3)
If MyStr = "M.O" Then
MsgBox "VOUS N'AVEZ PAS SELECTIONNER LA BONNE CELLULE SVP
RECOMMENCER", vbInformation
Else
Range(ActiveCell, ActiveCell.Offset(1, 0)).EntireRow.Copy

tamp = ActiveCell.Address
With MaFeuille
.Range(tamp).PasteSpecial
Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(1, 6)).Copy
.Activate
.Range(tamp).Offset(0, 6).Select
.Paste Link:=True
End With
Application.CutCopyMode = False

End If

A+

Bonjour,
J'ai la formule suivante qui fait un copier de ma cellule
active (ainsi que la cellule du bas) et qui la recolle dans un autre de
mes feuiilles


Private Sub test()
Dim AnyString, MyStr
AnyString = ActiveCell.Text
MyStr = Left(AnyString, 3)
If MyStr = "M.O" Then
MsgBox "VOUS N'AVEZ PAS SELECTIONNER LA BONNE CELLULE SVP RECOMMENCER",
vbInformation
Else
Range(ActiveCell, ActiveCell.Offset(1, 0)).EntireRow.Copy
MaFeuille.Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
ActiveCell.Select
End If
End Sub

Tout sa fonctionne bien mais ce que je voudrais c'est que lorsqu'il
recolle mes cellules et bien que la colonne G soit = a ma feuille copier
!
car la pour le moment si je copie A1 "rouge" et bien il me recolle A1
"rouge" . mais pour la colonne G exemple: G1 je voudrait que sa marque
G1 =mafeuille1!G1


donc sa donnerai ca mettont ....

feuill1 que je copie
A1 B1 C1 ..... G1
rouge jaune bleu mauve
A2 B2 C2 .... G2
bleu Vert Bleu Orange

Feuil2 que je colle

A1 B1 C1 ..... G1
rouge jaune bleu þuil1!G1
A2 B2 C2 ..... G2
bleu Vert Bleu þuil1!G1

tk je ses pas si je reussi a bien me faire comprendre mais bon si ya une
solution possible svp m'en faire part
merci de votre aide