Une idée ?

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion kirikouu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kirikouu

Guest
Bonjour a tous.
Je suis archi-débutant et je rencontre quelques soucis avec une formule.
En fait, je souhaite copier plusieurs cellules d'une feuille à une autre.
Étant donné qu'il y a plusieurs cellules à recopier dans des endroits différents, ca répète autant de fois une même formule (en changeant simplement les cellules cibles).


Je suppose qu'il doit exister une formule beaucoup plus simple (car j'ai utilisé l'enregistreur macro basique pour les créer) mais ce que je cherche ici c'est surtout de pouvoir remplacer la valeur fixe :
Code: 
Sheets("NOVEMBRE").Select
par quelque chose comme "retour à la feuille source".

Car je vais utiliser cette macro sur tous les autres mois...

j'ai cette formule :

Code: 
    Range("B6:B14").Select
    Selection.Copy
    Sheets("FEUILLE CIBLE").Select
    ActiveWindow.SmallScroll Down:=6
    Range("B12:B20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Sheets("NOVEMBRE").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("FEUILLE CIBLE").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A6").Select
    ActiveSheet.Paste

    Sheets("NOVEMBRE").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("FEUILLE CIBLE").Select
    Range("B4:G4").Select
    ActiveSheet.Paste

Merci d'avance....
 
Trier par date Trier par votes
Re : Une idée ?

Bonjour,

Pour répondre stricto sensu à ta question, je dirais que la première idée qui me vient à l'esprit, c'est que tu n'as pas lu la Lien supprimé, et notamment ceci :

Ce sujet doit être le plus clair et explicite possible
Cliquez pour agrandir...

La deuxième, c'est que quelqu'un t'a déjà répondu, sur une autre question, et que tu n'y as pas encore fait le moindre signe de reconnaissance...

Et la troisième, ben elle pourrait venir, ..... ou pas....

Bon Dimanche
 
Vote positif 0 Vote négatif
Re : Une idée ?

Bonjour le fil 🙂,
Entièrement d'accord avec toi, Bh² 😉
kirikouu à dit:
Étant donné qu'il y a plusieurs cellules à recopier dans des endroits différents, ca répète autant de fois une même formule (en changeant simplement les cellules cibles).
Certes, mais quel est le décalage entre chaque mois ?
Je suppose qu'il doit exister une formule beaucoup plus simple (car j'ai utilisé l'enregistreur macro basique pour les créer) mais ce que je cherche ici c'est surtout de pouvoir remplacer la valeur fixe :
Code: 
Sheets("NOVEMBRE").Select
par quelque chose comme "retour à la feuille source".
Car je vais utiliser cette macro sur tous les autres mois...
Que veux tu faire, décrire tous les mois ?
Code: 
Sub Test()
Dim I As Integer
For I = 1 To 12
MsgBox UCase(Format(CDate("01/" & I & "/2010"), "mmmm"))
Next I
End Sub
j'ai cette formule :
Euh, j'appelle ça un code...
Code: 
    Range("B6:B14").Select
    Selection.Copy
    Sheets("FEUILLE CIBLE").Select
[COLOR=red][B]  ActiveWindow.SmallScroll Down:=6[/B][/COLOR]
    Range("B12:B20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Sheets("NOVEMBRE").[COLOR=red][B]Select[/B][/COLOR]
    Range("B3")[B][COLOR=red].[/COLOR][COLOR=red]Select[/COLOR][/B]
[COLOR=red][B]  Application.CutCopyMode = False[/B][/COLOR]
   [COLOR=red][B]Selection[/B][/COLOR].Copy
    Sheets("FEUILLE CIBLE").[B][COLOR=red]Selec[/COLOR][COLOR=red]t[/COLOR][/B]
[COLOR=red][B]  ActiveWindow.SmallScroll Down:=-9[/B][/COLOR]
    Range("A6")[B][COLOR=red].[/COLOR][COLOR=red]Select[/COLOR][/B]
[COLOR=red][B]  ActiveSheet.Paste[/B][/COLOR]
 
    Sheets("NOVEMBRE").[COLOR=red][B]Select[/B][/COLOR]
    Range("B5").[COLOR=red][B]Select[/B][/COLOR]
  [COLOR=red][B]  Application.CutCopyMode = False[/B][/COLOR]
[COLOR=red][B]  Selection[/B][/COLOR].Copy
    Sheets("FEUILLE CIBLE").[COLOR=red][B]Select[/B][/COLOR]
    Range("B4:G4").[COLOR=red][B]Select[/B][/COLOR]
    [COLOR=red][B]ActiveSheet.Paste[/B][/COLOR]
Tu peux déjà supprimer tout ce qui est en rouge, tu obtiendras ça
Code: 
    Range("B6:B14").Select
    Selection.Copy
    Sheets("FEUILLE CIBLE").Select
    Range("B12:B20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("NOVEMBRE").Range("B3").Copy Sheets("FEUILLE CIBLE").Range("A6")
    Sheets("NOVEMBRE").Range("B5").Copy Sheets("FEUILLE CIBLE").Range("B4:G4")
Merci d'avance....
Cliquez pour agrandir...
A te lire avec plus d'explications...
Et n'hésite pas à modifier le titre de ton fil, c'est possible maintenant 😛
Bon dimanche 😎
 
Vote positif 0 Vote négatif
Re : Une idée ?

Bonjour a vous deux.
J'avais envoyé un message privé à "Kjin" pour lui dire merci.. (bah oui, je ne suis pas un escroc et quel aurait été mon interet à partir comme un voleur pour revenir ensuite ?..)

J'aurais effectivement du le mettre à la suite du post si j'avais su que ca m'aurait causé préjudice. 😉

Alors, je vais déjà commencer par remercier JNPpour le temps qu'il a consacré à mon problème. 🙂

Et Je vais ensuite mettre un fichier qui explique un peu mieux ce que je recherche.

Merci d'avance
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Une idée ?

Re 🙂,
kirikouu à dit:
J'aurais effectivement du le mettre à la suite du post si j'avais su que ca m'aurait causé préjudice. 😉
Cliquez pour agrandir...
Ce n'est pas là où est le problème. Les remerciements font toujours plaisir, mais surtout, pense à celui qui fait une recherche sur le forum. Si le post se conclue avec "Impec, le code fonctionne", il sait que ça marche. Si en plus, il y en a plusieurs, le fait de savoir celui retenu lui permet de bien s'orienter. Sinon, ben il se pose juste des questions...
D'autre part, sans réponses, d'autres risquent de chercher une autre solution parce qu'ils pensent que la première ne te convient pas...
Tu vois, c'est surtout le retour d'info qui nous intéresse 😉.
Bon, je jette un oeil à ton fichier mais ça m'a l'air complexe 😛...
A + 😎
 
Vote positif 0 Vote négatif
Re : Une idée ?

Re 🙂,
Finalement, j'ai repris ton raisonnement dans l'autre sens 😛.
Une liste déroulante de dates dans la feuille cible, et l'auto remplissage au changement de date. C'est ce qui me parait le plus simple, j'espère que ça te conviendra 😉.
Attention à une chose, note que j'ai modifié le nom de la feuille DECEMBRE en DÉCEMBRE. Il faudra que tu fasse la même chose pour FÉVRIER, etc. 😀.
Bon courage 😎
PS : Si tu peux diminuer le corps de "remercier JNP", ça me fait mal aux yeux... Merci.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Une idée ?

Salut JNP.
J'ai essayé d'adapter ton code sur ma feuille mais je rencontre un bug.

Pourrais tu voir quand tu as le temps et m'expliquer d'ou vient ce bug et pourquoi cela ne fonctionne pas ?

Merci d'avance

Ps : J'ai mis un zip car le fichier dépassé les 48Ko.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Une idée ?

Re 🙂,
Je t'ai bien mis qu'il fallait que les mois aient leurs accents et ta feuille s'appelle AOUT au lieu de AOÛT 😱...
D'autre part, il faut comparer ce qui est comparable... La mise en forme de tes dates doit être identique entre la feuille de recherche et les tableaux 🙄...
Bonne journée 😎
PS : il suffit d'être supporter pour charger jusqu'à 240 ko 😉.
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
215
Magic_Doctor
Magic_Doctor
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
195
sylvanu
sylvanu
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
524
xavieralvaro
X
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
675
job75
job75
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
arck
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
343
Phil69970
Phil69970
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
430
sylvanu
sylvanu
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
388
AlineJ
A
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
Phil69970
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
632
spike29
S
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
292
sylvanu
sylvanu
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
398
MICHIS
M
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
802
robpellan52
R
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
542
sylvanu
sylvanu
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
job75
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
1 K
Compte Supprimé 979
C
Retour