Microsoft 365 Copie les infos d'une feuille dans une autre feuille

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Pour nos ténors, je suis désolé de faire ce fil car la solution m'avait déjà été donnée par [B]job75[/B].
Je l'ai perdu (mal notée, bon sang !) et je ne retrouve plus le fil sur lequel elle était.

J'ai cette erreur :

Pourriez-vous m'aider ?
un grand merci
lionel,

 

[TooFatBoy]

De ce que je vois, et du peu que je connais en VBA, on ne peut pas mettre une plage dans une cellule.
Voilà tout ce que je peux dire.

 

[TooFatBoy]

J'ai pas parler de guillemet

Non, c'est moi qui lui ai dit qu'il fallait les enlever.

 

[Usine à gaz]

Re Philippe
"ActiveCell.Value = Sheets("appels").range("activecell.offset(0,4).resize(1,3)").Select"
J'ai bien copié ton code et j'ai la même erreur
lionel

 

[TooFatBoy]

Y a pas comme un problème rien que là :
range("activecell.offset(0,4).resize(1,3)")
???

 

[Phil69970]

Re

J'ai bien copié ton code et j'ai la même erreur

Non Lionel comme j'ai copié la phrase à la main en dehors d'excel j'ai pu faire une erreur de copie

Essaye celle là

ActiveCell.Value = Sheets("appels").Range("ActiveCell.Offset(0, 4).Resize(1, 3)").Select

ou celle là

ActiveCell.Value = Sheets("appels").Range(ActiveCell.Offset(0, 4).Resize(1, 3)).Select

@Phil69970

 

[TooFatBoy]

Moi, il y a au moins 3 choses qui me dérangent dans ton instruction surlignée :
1- les guillemets dans le Range,
2- vouloir faire rentrer une plage de 3 cellules dans une seulle,
3- utiliser ActiveCell pour cibler une cellule dans une autre feuille que la feuille active (je ne sais pas si on a bien le droit de faire ça).

Sur ce, bon dimanche ensoleillé les amis.

 

[Usine à gaz]

Re Philippe
Même erreur pou les 2 codes :

dsl,
lionel

 

[Usine à gaz]

Re-Bonjour,

En fait, si je mets ce code :
Worksheets("Feuil2").Range("a11").Value = Worksheets("appels").Range("o4:q4").Value
ca fonctionne.
Mais j'ai besoin de mettre :
ActiveCell.Value = Sheets("appels").Range("ActiveCell.Offset(0, 4).Resize(1, 3)").Select(0, 4).Resize(1, 3) et je n'arrive pas à intégrer les ActiveCell

 

[job75]

Bonjour Lionel, le fil,

Au lieu de nous montrer un code VBA qui n'a aucun sens dépose ton fichier avec le résultat attendu.

A+

 

[Usine à gaz]

Bonjour Gérard,

Cellule active de Appels = K5
Résultat attendu Feuil2 1ère cellule vide de col "A" :
" : Etblt : Prospect : - - CP : - Commune : - Tel1 : 0 - Tel2 : 0 - Mail perso : - Mail Pro : - 09-01-22 14:17 : RendezVous pour le : 09 01 2022 15:00 - RAS : OK pour réfléchir au changt de réseau selon proposition
"

Voici le fichier
lionel

 

[job75]

Bah il n'y a qu'un très lointain rapport entre la cellule source K5 et le résultat escompté.

 

[Usine à gaz]

Re -Gérard,

Feuille Appels (cellule active K5)
(la ligne de la cellule active change en permanence selon la ligne traitée, c'est pour cela que j'ai besoin des ActiveCell et ActiveCell.Offset(0, 4).Resize(1, 3)

j'ai les cellules O5 à Q5 à copier
soit :
" : Etblt : Prospect : - - CP : - Commune : - Tel1 : 0 - Tel2 : 0 - Mail perso : - Mail Pro : - 09-01-22 14:17 : RendezVous pour le : 09 01 2022 15:00 - RAS : OK pour réfléchir au changt de réseau selon proposition
" 09 01 2022 15:00 09 01 2022

Dans la Feuil2 à partir de la 1ère cellule vide de la col A

Je ne sais pas si je suis clair

 

[job75]

Sub Copie()
With Sheets("Feuil2")
    If ActiveCell.Column = 11 And ActiveCell.Row > 4 Then _
        .Cells(Rows.Count, 1).End(xlUp)(2) = ActiveCell(1, 5) & " " & ActiveCell(1, 6).Text & " " & ActiveCell(1, 7).Text
    .Columns(1).WrapText = False
End With
End Sub

Mais je ne vois pas l'intérêt des cellules P5 et Q5 dont les valeurs sont déjà en O5.

 

[Usine à gaz]

R- Gérard,
Vraiment merci et je ne vais pas le perdre celui-là.
Nickel comme d'habitude

"Mais je ne vois pas l'intérêt des cellules P5 et Q5 dont les valeurs sont déjà en O5."
Ce code s'exécute pendant le traitement d'une ligne de la feuille Appels,
Les infos sont les mêmes pour le test (j'ai créé le fichier en allant au plus simple)
Dans le fichier de travail, les infos sont différentes.
Encore un grand Merci Gérard

Merci aussi à mon Potos Marcel32 et à Phil69970 pour m'avoir apporté votre aide
Amicalement,
lionel,

 

[Usine à gaz]

Re -Gérard,

J'ai encore du mal montrer le résultat que j'attendais :
Le code copie les cellules Feuille Appels dans la même cellule de la Feuil2 col A.

Il faudrait qu'il me copie :
Appels si cellule active K5 = K5+ 4 vers Feuil2 cellule active (col A)
........................................................= K5 +5 vers Feuil2 cellule active (col A) +1 (Col B)
........................................................= K5 +6 vers Feuil2 cellule active (col A) +2 (col C)

Je tente de modifier le code