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

TooFatBoy

XLDnaute Barbatruc

• 9 Janvier 2022

• #16

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.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 9 Janvier 2022

• #17

Phil69970 à dit:

J'ai pas parler de guillemet

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Janvier 2022

• #18

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 9 Janvier 2022

• #19

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Janvier 2022

• #20

Re

Usine à gaz à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

ou celle là

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

Cliquez pour agrandir...

@Phil69970

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 9 Janvier 2022

• #21

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Janvier 2022

• #22

Re Philippe
Même erreur pou les 2 codes :

dsl,
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Janvier 2022

• #23

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Janvier 2022

• #24

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Janvier 2022

• #25

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

 

Pièces jointes

• copy dans autre feuille_test.xlsm

  24.1 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Janvier 2022

• #26

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Janvier 2022

• #27

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Janvier 2022

• #28

VB:

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.

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 9 Janvier 2022

• #29

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,

 

Dernière édition: 9 Janvier 2022

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Janvier 2022

• #30

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

 

Vote positif 0 Vote négatif