copie de cellules pleines

[brewen]

Bonsoir le forum,


j'ai un probleme avec un recap de cellules. je vous joint un fichier ou j'ai expliqué ce à quoi je souhaite aboutir.

Merci de votre aide.

 

[jeanpierre]

Re : copie de cellules pleines

Bonsoir brewen, et tous,

Dans ton fichier, à part une palanquée de cellules fusionnées, d'ailleurs différentes.... 2, 3, 4, 5, et plus.... il n'y a rien, pas de montant en entrée, pas plus que le résultat attendu...

Si tu veux du résultat, supprimes ces beautés éphémères que sont les fusions....
Mets nous aussi, quelques exemples.....

Réédites ton message, dans Gérer les pièces jointes, avec Supprimer : SUPPRIMES ce fichier inutile et déposes nous en un autre plus traitable....

Ce sera plus facile pour tout le monde.

A te lire.

Jean-Pierre

 

[brewen]

Re : copie de cellules pleines

bonsoir jean pierre,

voici le nouveau fichier

Merci d'avance

 

[wilfried_42]

Re : copie de cellules pleines

bonjour brewen, jeanpierre 🙂

Tu n'as pas besoin de macro pour faire la recap,

toutes tes feuilles ont exactement le meme format donc toutes les somme correspondent à la meme cellule

Il te faut alors utiliser somme

exemple du mois 1 à 14, tes feuilles s'appellent 01,02,03----->14

Somme(01:14!A2) ---> fera la somme de la cellule A2 des feuilles 01 à 14

 

[brewen]

Re : copie de cellules pleines

super!! une réponse claire !!

merci wilfried, cela regle mon premier probleme et va me faire gagner beaucoup de temps. Mais en ce qui concerne la partie des cheques par exemple, il ne me faut pas la somme dans le recap, mais les montants un à un dans un tableau, sachant que sur certaines caisses, il y aura des cellules vides. alors comment remplir un tableau qui va me récapituler tous les cheques,caisses par caisses, en oubliant ces cellules vides??

 

[wilfried_42]

Re : copie de cellules pleines

re:

la il faut une macro :
la macro met en colonne A les dates, En colonne B les montants

sub majcheque()
      sheets("Recap1").range("A1:B1").entirecolumn.clear ' effacement des 2 colonnes
      dim i as integer, j as integer, k as integer, drapeau as boolean,ligne as long
      ligne = 1
      for i = 1 to 14 ' Pour les 14 premiers jours
          with sheets(format(i,"00")) ' en utilisant la feuille du mois
                 drapeau = false ' je remets le drapeau à false
                 for j = 44 to 50 ' je passe en revue les lignes
                     For k = 13 to 25 step 3 ' Les colonnes, step 3 -> 3 cellules par montant
                          if .cells(j,k)>0 then ' j'ai un montant
                             if drapeau = false then ' je n'ai pas mis la date
                                sheets("Recap1").range("A" & ligne) = .range("O1") ' mise en place de la date
                                drapeau = true ' pour ne pas metre la date à toute les lignes
                             end if
                             sheets("Recap1").range("B" & ligne) = .cells(j,k) ' Mise en place du montant
                             ligne = ligne + 1 
                          end if
                      next k
                   next j
              end with
         next i
end sub

 

[brewen]

Re : copie de cellules pleines

bonjour wilfriel_42,

Merci pour le code. comme tu as pu le constater, je debute, et le VBA pour moi est encore un peu complexe . Alors la question du debutant : j'affecte le code que tu m'as donné à un bouton que je met sur la recap, et après avoir dupliqué mes feuilles de 1 à 14 comme tu me l'as indiqué auparavant. Est ce bien cela ?

et pour moi dans l'attente, au bulot, c'est l'heure!!

 

[wilfried_42]

Re : copie de cellules pleines

re:

je t'ai repondu sur ton fil précédent

Bonne journée

 

[brewen]

Re : copie de cellules pleines

salutation Wilfiried_42,

Je viens de regarder le fichier.
Je ne sait même plus quoi dire tellement c'est enorme!!!
bravo, c'est vraiment impressionant (enfin pour moi et à mon niveau).
Je vais tester le fichier et je te donnerai les résultats.

RESPECT...

a+