Microsoft 365 Macro copier avec condition

C

Compte Supprimé 979

Guest

• 2 Juin 2023

• #2

Bonjour,

J'ai remarqué que vous avez posté votre message sur un autre forum Excel.

La pratique du cross posting est très mal perçue sur Internet car les membres qui vont passer du temps sur votre problème risquent de le faire pour rien si vous obtenez une réponse par ailleurs dont ils n'ont pas connaissance.

Merci de choisir un forum pour votre question et de supprimer votre message dans un des forums concernés.

Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.

Bonne journée

 

Vote positif 0 Vote négatif

O

open-33

XLDnaute Nouveau

• 2 Juin 2023

• #3

Bonjour,
je comprend et j'en suis désolé c'est la première fois que je demande de l'aide sur excel j'ai juste besoin d'une réponse rapidement mais visiblement je vais pas l'avoir. j'ai supprimé mon compte sur l'autre forum et je vais faire pareil ici.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Juin 2023

• #4

Re,

Sur les forums nous sommes tous bénévoles... alors les "urgences"

"Il n'est rien de plus urgent que d'apprendre la patience..."
Jacques Atalli

 

Vote positif 0 Vote négatif

O

open-33

XLDnaute Nouveau

• 2 Juin 2023

• #5

Il n’y a pas de problème je supprime mon compte, je sais même pas pourquoi j’ai demandé de l’aide. Bonne continuation

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juin 2023

• #6

Bonjour le fil


@open-33
Open comme open minded ?
ou open comme ouvrir

Spoiler: Ouvrir ....

un compte sur XLD, ouverture qui invite à se rapprocher de la charte en cliquant sur termes

Et dans cette fameuse charte on pouvait lire

La Charte¸ comme nombres de ses sœurs à dit:

2.10 - Évitez de poser votre question sur plusieurs forums sur Internet, cette pratique s'appelle « cross posting" et elle peut être mal perçue par les membres répondant aux questions. Si vous avez déjà posté votre question ailleurs, que nous n'avez pas de réponse satisfaisante et que vous voulez la reposter sur XLD, il est possible de supprimer votre discussion sur l'autre forum.
Cela fonctionne aussi dans l'autre sens si vous souhaitez poser votre question ailleurs.

Cliquez pour agrandir...

Cela fait un peu de lecture, je te le concède, mais cela t'aurait éviter de devoir lire en plus les messages 2, 4 et 6.

Tu préfères supprimer ton compte (ce que tu ne peux pas faire seul, soit dit en passant) que de lire une tite charte ?
Radical pour un esprit ouvert, non ?

Repasses dans ton fil, tu verras que tu finiras par avoir réponse

En attendant, juste un conseil souvent lu sur les forums
• Eviter autant que faire se peut les Select ou autre Activate (Jean-Claude si tu nous écoutes )
Ta macro remaniée (sans Select)
(Je te laisse tester pour voir si le résultat est identique à ta macro initiale)

VB:

Sub savand_bis()
Dim valeurs
Application.ScreenUpdating = False
Sheets("ANDERNOS").Range("X204") = Sheets("SAISIE ANDERNOS").Range("B205").Value
valeurs = Sheets("SAISIE ANDERNOS").Range("R4:R203").Value
Sheets("SAISIE ANDERNOS").Range("B4").Resize(UBound(valeurs, 1), UBound(valeurs, 2)) = valeurs
End Sub

 

Vote positif 0 Vote négatif

O

open-33

XLDnaute Nouveau

• 3 Juin 2023

• #7

Bonjour Staple,

Merci de prendre le temps de m'aider, en testant ta macro la B205 ce colle bien en X204 par contre on lui précise ou coller, comment peut on lui dire de chercher dans quelle colonne coller en fonction du numéro de semaine qui est en cellule D1 de saisie Andernos ?
Pour ce qui est de range R4:R203 je ne vois aucun résultat et ne comprend pas ce que tu lui demande de faire.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juin 2023

• #8

Re

@open-33
[humour Global Warming]
Finalement tu es resté parmi nous.
Tant pis pour la planète.
[/humour Global Warming]

J'ai rédigé trop vite ma simplification de code

Est-ce que c'est mieux ainsi niveau résultat ?

VB:

Sub savand_ter()
Dim valeurs
Application.ScreenUpdating = False
Sheets("ANDERNOS").Range("X204") = Sheets("SAISIE ANDERNOS").Range("B205").Value
valeurs = Sheets("SAISIE ANDERNOS").Range("R4:R203").Value
Sheets("ANDERNOS").Range("B4").Resize(UBound(valeurs, 1), UBound(valeurs, 2)) = valeurs
End Sub

Sinon pour cette histoire de N) de semaine
On pourrait partir sur un truc du genre

VB:

Sub ChercheSem()
Colsem = Sheets("SAISIE ANDERNOS").[D1]
NCol = Application.Match(Colsem, Sheets("ANDERNOS").Rows(1), 0)
MsgBox Sheets("ANDERNOS").Cells(2, NCol).Address
End Sub

Je te laisse creuser à partir de cette piste

 

Vote positif 0 Vote négatif

O

open-33

XLDnaute Nouveau

• 3 Juin 2023

• #9

Oui je suis resté, merci d'essayer de m'aider.
Je vais clore ma demande je ne comprend pas le langage VBA je vais refaire mon tableau différemment.
Merci quand même

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juin 2023

• #10

Re

@open-33
Ne pas comprendre c'est une chose
Ne pas faire de feedback sur une proposition en est une autre.
La question en suspens est:
• Est-ce que la macro corrigée savand_ter donne le même résultat que la macro initiale ?
La seconde : Quid du test de la macro ChercheSem ?
Qu'affiche le MsgBox ?

je ne comprend pas le langage VBA

Cliquez pour agrandir...

Tu utilises une macro enregistrée pourtant, non ?

Si tu souhaites réorganiser ton classeur, je suggère la piste du tableau croisé dynamique
(avec comme entrée un seule feuille qui sert de base de données, ce qui t'évitera d'avoir un classeur avec 13 feuilles et un classeur avec 6691 cellules contenant des formules)

 

Vote positif 0 Vote négatif