Boucle qui recherche les mois Résolu

Question

Bonjour,

Je viens de début sur vba 
Et j'ai un petit problème avec une boucle.
Voici mon problème:

J'ai mon fichier avec les mois de l'année en ligne, dans la colonne du mois de janvier figure des formules, que je souhaite copier sur le mois de février et ainsi de suite pour le mois de février je copierai les formules sur le mois de mars etc.. Jusque là tout va bien 


Cependant je souhaiterai faire une boucle qui recherche les mois, c'est à dire que au mois de janvier be souhaiterai que ma macro cherche le mois de février et des qu'elle trouve le mois de février ma macro s'arrête et copie les formules.

Voici le programme que j'ai fais mais qui ne fonctionne pas :

Sub macro 1()
For i = 1 to 12
Range ("A"& i -1).select
Selection.copy
Range ("A" & +1).select
Selection.pasteSpecial Paste:=xlPasteFormulas , Operation:=xlNone, SkipBlanks:=False, transpose:=False
next i 
End sub

EDIT: Ajout de la coloration syntaxique.

ucfoutu · Answer

Bonjour,
Besoin réel d'explication très claires :
1)  c'est à dire que au mois de janvier be souhaiterai que ma macro cherche le mois de février
Veut dire exactement quoi ?
--- que si la date de l'ordinateur est du mois de janvier ?
ou
--- autre chose et quoi exactement ?
2) des qu'elle trouve le mois de février 
dépend très sérieusement de la réponse au 1)
--- si par rapport à date interne ===>> le N° de la colonne est celui du mois + 1, tout simplement
--- si selon autre chose : quelle est cette "autre chose" exacte ?

Question subsidiaire : quels sont les titres exacts (tes mois) sur la ligne 1 ?

Zaza · Answer

Bonjour, 
En fait je me suis complètement mélangé au niveau de mes informations 

Voilà ce que je désire faire tellement.
J'ai un classeur avec deux feuilles. En feuille 1 se trouve les mois de l'année 
Et en feuille dans la colonne 1 se trouve les formules.

Ce que je souhaiterai faire c'est copier la formule de la colonne A de la feuille 2 vers le mois de janvier de la feuille 1 mais si le mois de janvier est rempli alors on copie les données sur le mois suivant.


Pour y voir plus clair je peux vous envoyer mon fichier excel ce soir.

ucfoutu · Answer

Non : pas de fichier, mais une image de ta feuille1 et une image de ta feuille2. Mets ces deux images ici,  car tes explications ne sont pas claires.
Sur l'image de ta feuille2 : colorie en rouge les cellules comprtant des formules
Dur l'image de ta feuille1 : colorie en rouge les cellules du mois de janvier qui doivent avoir ces formules.
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Ce que je peu te dire à ce stade (ret qui devrait te permettre de travailler) :
1)
ce code, placé sur la feuille où tu veux coller tes formules :
Dim toto As RangeOn Error Resume NextSet toto = Rows(2).SpecialCells(xlCellTypeFormulas)If Not toto Is Nothing Then  non_remplie = toto.Columns.Count + 1Else  non_remplie = 1End IfOn Error GoTo 0MsgBox "prochaine colonne de la ligne 2 sans formule = colonne " & non_remplie
Te fera savoir quelle est la 1ère colonne de la ligne 2 qui ne contient pas encore de formule

2) on ne travaille pas à coups de select, copy, paste, etc ..., mais directement sur les objets de Excel.
Ce code (exemple) :
Worksheets("Feuil6").Range("A1:A10").Copy Destination:=Worksheets("Feuil5").Cells(2, non_remplie)
copiera dans la colonne numérotée non_remplie (calculée plus haut) de la feuille Feuil5 , à partir de la ligne 2 ce qui se trouve dans la plage A1:A10 de la feuille Feuil6. Si ce sont des formules, les copiera également.
A toi de jouer un peu avec cela, maintenant.

zazaote · Answer

Bonjour ucfoutu,

Voici les imprim ecran de la feuille 1 et de la feuille 2 

Enfait en feuille 1 figure les mois de l'année et en feuille 2 figure mes formules en colonne (Colonne A). Ce sont des formules qui ne changeront jamais.
Ainsi je souhaite  affecter ces formules à chaque mois de l'année.

Et ce que je souhaite faire, c'est dire  à ma macro que si le mois de janvier n'est pas rempli alors je colle les formules mais si le mois de janvier est rempli alors je passe au mois suivant et je colle les formule, ainsi de suite pour tous les mois.

Et je sais pas comment je pourrais traduire ça en VBA etant donnée que je viens de débuter.

Merci d'avance

ucfoutu · Answer

Vu ! c'est donc légèrement décalé par rapport à ce que tu disais ===>> on décale alors le code que je t'ai montré plus haut (la première partie) ===>>
 Dim toto As RangeOn Error Resume NextSet toto = Range(Cells(2, 1), Cells(2, Columns.Count)).SpecialCells(xlCellTypeFormulas)If Not toto Is Nothing Then  non_remplie = toto.Columns.Count + 2Else  non_remplie = 2End IfOn Error GoTo 0MsgBox "prochaine colonne de la ligne 2 sans formule = colonne " & non_remplieWorksheets("Feuil6").Range("A1:A10").Copy Destination:=Worksheets("Feuil5").Cells(2, non_remplie)
la seconde partie reste la même ==>>

Zaza · Answer

C'est vraiment gentil de ta part 
Je vais essayer le code et je te renvoi un message 
Encore merci

ucfoutu · Answer

Ce qui (en total) devrait donc être écrit ainsi pour correspondre à tes feuilles, telles que montrées ===>>
Dim toto As RangeOn Error Resume NextSet toto = Worksheets("Feuil1").Range(Cells(2, 1), Cells(2, Columns.Count)).SpecialCells(xlCellTypeFormulas)If Not toto Is Nothing Then  non_remplie = toto.Columns.Count + 2Else  non_remplie = 2End IfOn Error GoTo 0Worksheets("Feuil2").Columns(1).SpecialCells(xlCellTypeFormulas).Copy Destination:=Worksheets("Feuil1").Cells(2, non_remplie) 

EDIT : évite s'il te plait d'intervenir ici un coup en tant que "zaza", un coup en tant que "zazaote".
Ma référence va vers "zazaote" (en se loggant en tant que zazaote, membre inscrit).
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

zazaote · Answer

J'ai un beug au niveau de la l'avant derniere ligne et la la derniere ligne

L'erreur suivante m'est indiquée : "Erreur de compilation: Attendu: Expression

Voici l'erreur que j'ai en photo avec la ligne surligné en jaune

ucfoutu · Answer

Copie ici ton code (par copier/coller).
Il semble que tu aies écrit sur deux lignes :
Worksheets("Feuil2").Columns(1).SpecialCells(xlCellTypeFormulas).Copy Destination:=Worksheets("Feuil1").Cells(2, non_remplie)
 au lieu d'une seule !!!

zazaote · Answer

Voici mon code 

Sub macro2 ()
Dim colonne as rangeOn error resume nextSet colonne = worksheets ("Feuil1").Range(cells 2,1),cells (2,columns.count)).SpecialCells(xlCellTypeFormulas)If not colonne is nothing then Non_remplie = 2End If On error goto 0Worksheets ("Feuil2").columns(1).SpecialCells(xlCellTypeFormulas).Copy Destination:=Worksheets ("Feuil1").Cells(3,non_remplie)
End sub

ucfoutu · Answer

Je t'ai dit :
Copie ici ton code (par copier/coller)
la simple comparaison du code que tu montres avec l'image montrée plus haut met en évidence que tel n'est pas le cas !

zazaote · Answer

Je ne peux pas copier coller par téléphone car je suis actuellement en déplacement et je travail sur mon PC sur lequel je n'es pas accès à internet et actuellement je discute avec vous grâce à mon téléphone d'où l'impossibilité e faire un copier coller et donc j'ai du réécrire le code

ucfoutu · Answer

On ne peut pas "travailler" ainsi.
Tu aurais au moins dû le dire, que ce n'était pas ce que je te demandais, mais du "de mémoire, qui ne m'intéresse pas !
Pour ton information : celui (le code) de ton image montre un code écrit sur DEUX lignes là ou UNE SEULE était attendue !
Pour la compléter, ton information : j'ai testé MON code ===>> marche impeccablement.
Nous attendrons donc, si tu le veux bien, que tu sois RELLEMENT devant ta machine de développement pour continuer !

zazaote · Answer

Oki il n'y a pas de problèmes, j'ai résolu mon problème avec votre aide et l'aide de plusieurs forum.

J'ai tapé un code plus simple et ce code me recopie les formules lorsqu'il prenfs les données de la feuille 2 
Alors que le votre recopiait uniquement les valeurs et non les formules de la feuille 2


Mais merci pour votre aide

ucfoutu · Answer

Ah ?
Non ! (testé) : mon code (une autre fois : testé) ne recopie pas "que les valeurs", mais également les formules..
Bonne chance

ucfoutu · Answer

Et en outre :
 si c'est là, la solution retenue :
http://forum.excel-pratique.com/excel/copier-coller-formule-mois-m-1-t66246-10.html

1) nous ne sommes plus sur les mêmes bases
2) elle est loin d'être plus simple. Ce qui est certain, par contre, c'est qu'elle est plus lourde :
a) elle boucle sur les 12 colonnes
b) elle compte le nombre de cellules remplies sur chaque colonne 

Du "bourrin" absolu, quoi.

Fais comme tu l'entends, mais je ne la conseille certes pas. Ce n'est pas parce qu'elle fonctionne, que c'est la meilleure solution.
La meilleure solution, en informatique, n'est pas celle qui est la plus simple à écrire, mais celle dont la durée d'exécution est la moindre...

 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

zazaote · Answer

Voila j'ai essayé ton code et j'ai une erreur au niveau de la ligne 2 sans savoir pourquoi.

Voici un copier coller du code que j'ai saisie

Sub macro1()


Dim colonne As Range
On Error Resume Next
Set colonne = worksheets ("Feuil1").Range(cells 2,1),cells (2,columns.count)).SpecialCells(xlCellTypeFormulas)
If Not colonne Is Nothing Then
 non_remplie = 2
End If

On Error GoTo 0
Worksheets("Feuil2").Columns(1).SpecialCells(xlCellTypeFormulas).Copy Destination:=Worksheets("Feuil1").Cells(3, non_remplie)
End Sub




Et ca me mets une erreur au niveau de la ligne 3 "Set colonne..."  en me sortant comme erreur : "Erreur de Synthaxe"

ucfoutu · Answer

tu as une erreur parce que tu n'as pas copié mon code correctement !
 Regarde ce que je t'ai dit d'écrire :

Set toto = Range(Cells(2, 1), Cells(2, Columns.Count)).SpecialCells(xlCellTypeFormulas)

et regarde ce que tu as écrit :

Set colonne = worksheets ("Feuil1").Range(cells 2,1),cells (2,columns.count)).SpecialCells(xlCellTypeFormulas) 

T'aurais pas comme l'impression de ce que tu as omis une parenthèse (celle que j'ai mise en gras souligné), par hasard ????
cells 2,1) n'est pas une cellule ! Cells(2,1) en est une !
Prends s'il te plait mon code ===>>> copie-le ===>> colle-le ===>> puis change si tu veux toto par colonne, mais ne tripote pas le reste.
Au fait : je comprends bien que toto (je mets des toto et des titi partout) ne te plaise pas (pas parlant). Mais colonne est très faussement "parlant" : ce serait alors plutôt :
plage_des_colonnes_deja_dotees.

Edit : lorsque tu auras retrouvé tes esprits, je vais te montrer ce que j'avais d'abord écrit (même méthode, mais sans nécessité d'une gestion d'erreur et plus court) et que j'ai jugé trop éloigné de ta portée ...
Dis-moi lorsque tu seras prêt(e).


________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Tiens ! :
1) silence radio du demandeur
2) réaction du forum (qui s'y est intéressé un peu plus que le demandeur, mais qui veut maintenant ne plus encombrer sa machine) :
La voilà, l'autre solution du même type que la première, mais sans nécessité de gestion d'erreur et sans variable toto :
Dim non_remplie As Integer  Select Case Worksheets("Feuil1").Range("B2").HasFormula  Case False    non_remplie = 2  Case Else    non_remplie = Worksheets("Feuil1").Range(Cells(2, 1), Cells(2, Columns.Count)).SpecialCells(xlCellTypeFormulas).Columns.Count + 2  End Select  If non_remplie < 14 Then   Worksheets("Feuil2").Columns(1).SpecialCells(xlCellTypeFormulas).Copy Destination:=Worksheets("Feuil1").Cells(2, non_remplie)  End If
Bien évidemment : à copier sans intervention "personnelle" inconsidérée, hein ...

zazaote · Answer

Bonjour Ucfoutu 

Désolé pour ce grand moment d'absence mais comme je vous ai expliqué j'étais occupé sur un autre projet
Et je reprends des aujourd'hui le projet sur lequel je vous avez fait part sur le forum 

Je test des a présent votre code sur mon fichier et je vous tiens au courant 
Mais je vous remercie pour votre et pour l'intérêt que vous portez sur le sujet que j'ai pu partager sur ce forum

zazaote · Answer

Bonjour Ucfoutu, 

Voilà j'ai essayé ton code, et je pense qu'il marche enfin j'ai juste une erreur qui me dis " l'indice n'appartient pas à la sélection" 
Je voulais savoir si tu pouvais m'aider ou si qqln pouvais m'aider au sujet de cette erreur 


Merci d'avance

ucfoutu · Answer

Montre alors le code REEL que tu as écrit, TEL QU'ECRIT (par COPIE/COLLE réel b(et non pas autrement ), donc ...

zazaote · Answer

Voici les image de la feuille synthèse et l'image de la feuil1, ainsi je souhaiterai que les formules de la feuil1 soit copié dans les mois qui se trouve dans la feuille synthèse

ucfoutu · Answer

Le code que tu montres ne génère chez moi pas l'erreur dont tu parles !
De surcroît, l'erreur dont tu parles, compte tenu du code que tu montres, ne pourrait être générée qu'en raison de l'inexistence d'une des deux feuilles auxquelles tu te réfères ("Synthèse" et "Feuil1") TRES EXACTEMENT AINSI ORTHOGRAPHIEES ...
Tiens ! Je suis prêt à parier que tu as réussi l' "exploit" de mettre un espace devant ou après Feuil1 ou devant ou après Synthèse en nommant tes feuilles ! Auquel cas, ma foi ... "Synthèse" et "Synthèse " sont des choses différentes ! (Idem pour "Feuil1" et "Feuil1 "
Allons allons ...

ucfoutu · Answer

Oui ...
et ce n'est pas tout...
Attends la suite, zazaote (je la connais déjà) ...
Pour tout conclure (car je commence à préférer conclure) : le développement ne souffre aucune "incartade", aucune "approximation" ...
Les "explications que l'on donne, l'exposé de ce que l'on traite ... non plus ...
Si tu te demandes à quoi je fais allusion ===>>> regarde donc l'image par laquelle tu as répondu à l'une de mes demandes, pourtant très précises, que je t'avais faites ===>>>
elle est dans la réponse que TU as faite le 9 juil. 2015 à 08:24 
Tu la vois, ta plage peinte en rouge et censée être la plage des cellules contenant des formules ? Tu la vois bien ? Elle est continue ...
Je jurerais maintenant que là aussi, ce n'était pas exact, mais du n'importe quoi ... (mon petit doigt est là pour me le dire).

ucfoutu · Answer

Pas de quoi, mais (du moins en ce qui me concerne) : Adieu.
Je ne confonds pas forum d'entre aide entre développeurs avec "balade" sur des chemins indéfinis ou mal définis, ni avec cours de rigueur.
Bonne chance. Tu finiras par t'en sortir en acceptant la rigueur. Cela viendra....

Boucle qui recherche les mois

27 réponses

Votre réponse

Discussions similaires