VBA Conso d'onglets avec condition

[FAUB]

Bonjour à tous,

Je cherche à consolider des onglets dans une feuille de synthèse à l'aide d'une macro, avec une condition précise.
Je vous joins un fichier dans lequel j'explique que doit faire la macro.

J'ai bien essayé de la faire avec les infos données sur le site de Mr Boisgontier, mais je n'y arrive pas...

Merci d'avance pour votre aide.

FAUB

 

[minipuce]

Re : VBA Conso d'onglets avec condition

Bonjour Faub,

voici un fil qui t'aidera surement, j'ai eu le meme problème ...

https://www.excel-downloads.com/thr...-dans-un-nouvel-onglet-avec-condition.110852/

Bon courage
Minipuce

 

[FAUB]

Re : VBA Conso d'onglets avec condition

Salut Minipuce,

Merci pour ta réponse. J'ai déjà vu les différents codes à intégrer, mais sans réussir à les adapter les uns à la suite des suites des autres dans mon fichier... je suis débutant en VBA.

Est-ce que tu pourrais m'aider la dessus ?

 

[minipuce]

Re : VBA Conso d'onglets avec condition

Bonsoir Faub,

je suis moi-meme débutante en VBA, mais ça ne me semble pas insurmontable, j'aurai par contre besoin de précisions...

Est-ce que la feuille nommée "autres charges" peut être déplacée ?
Dans ta feuille synthèse tu recopies en fait pour chaque ligne, les colonnes "C" à "I", ou "C" à "K" ?

Voila, si tu peux répondre à ces questions j'essayerai de te faire un bout de code, avec mes maigres connaissances.
J'aurai peut être besoin d'autres précisions par la suite

Bonne soirée
Minipuce

 

[FAUB]

Re : VBA Conso d'onglets avec condition

Je recopie les colonnes C à K.
Le fichier original a beaucoup plus d'onglets... est-ce important de savoir si l'onglet "Autres charges" peut être déplacé ? Lui ne doit pas rentrer en compte dans le calcul de la macro étant donné qu'il ne commence pas par "N°"...

Le code que j'aimerais adapter (pris le site de Boisgontier):

Sub recap()
ligne = 2
For s = 2 To Sheets.Count
For lig = 2 To Sheets(s).[A65000].End(xlUp).Row
If Sheets(s).Cells(lig, 5) = "OUI" Then
Sheets(s).Rows(lig).Copy Sheets("commande").Cells(ligne, 1)
Cells(ligne, 6) = Sheets(s).Name
ligne = ligne + 1
End If
Next lig
Next
End Sub


Merci pour ton aide. Je continue à bucher dessus.

A+

 

[minipuce]

Re : VBA Conso d'onglets avec condition

Re,

c'est aussi de ce code que j'avais l'intention de partir (c'est celui que j'ai gardé au final).
Et donc pour utiliser cette ligne

For s = 2 To Sheets.Count

Il faut que toutes les feuilles après la feuille 2 soient les feuilles que tu veux prendre en compte. Pour le moment je ne sais pas tester le nom de la feuille.
Peut être avec un :

if Sheets(s).name = "N°"&*

A tester

Affaire à suivre

Minipuce

 

[BOISGONTIER]

Re : VBA Conso d'onglets avec condition

Bonjour,

Sub Recap2()
  ligne = 7
  For Each f In ActiveWorkbook.Sheets
    s = f.Name
    If s Like "N°*" Then
      For lig = 26 To Sheets(s).[B65000].End(xlUp).Row
        If Sheets(s).Cells(lig, 2) <> "" Then
          Sheets(s).Cells(lig, 2).Resize(, 10).Copy
          Sheets("synthese").Cells(ligne, 2).PasteSpecial Paste:=xlValues
          Sheets("synthese").Cells(ligne, 1) = s
          ligne = ligne + 1
        End If
      Next lig
    End If
  Next
End Sub

ou

Sub Recap()
  ligne = 7
  For Each s In Array("N°1", "N°2")
    For lig = 26 To Sheets(s).[B65000].End(xlUp).Row
     If Sheets(s).Cells(lig, 2) <> "" Then
       Sheets(s).Cells(lig, 2).Resize(, 10).Copy
       Sheets("synthese").Cells(ligne, 2).PasteSpecial Paste:=xlValues
       Sheets("synthese").Cells(ligne, 1) = s
       ligne = ligne + 1
     End If
    Next lig
  Next
End Sub

JB

 

[pierrejean]

Re : VBA Conso d'onglets avec condition

bonjour FAUB

SAlut minipuce

Vois si cela te convient

 

[minipuce]

Re : VBA Conso d'onglets avec condition

Bonsoir à tous,

Premier point positif, je sais désormais comment tester le nom d'une feuille
Boisgontier, peux-tu expliquer à quoi sert le ".resize(,10)"

En tout cas merci bien pour ton aide

Minipuce

 

[BOISGONTIER]

Re : VBA Conso d'onglets avec condition

>peux-tu expliquer à quoi sert le ".resize(,10)"

Pour sélectionner 10 colonnes. (Resize hauteur,largeur)

JB

 

[minipuce]

Re : VBA Conso d'onglets avec condition

Boisgontier

un spécial GRAND MERCI à toi, pour ton temps, ta patience, et tes explications.

Bonne fin de soirée
Minipuce

 

[FAUB]

Re : VBA Conso d'onglets avec condition

Bonjour Boisgontier,

Merci milles fois pour ton code, il marche nickel.
J'ai en effet changé .resize(10), car il y avait pas mal de colonnes en plus dans le fichier original.

Pierre Jean, tu as du te tromper de fichier en me le renvoyant... En tout cas, merci beaucoup à tous pour votre aide.

Bonne soirée,

FAUB

PS: Boisgontier, votre site est très instructif !

 

[pierrejean]

Re : VBA Conso d'onglets avec condition

Re

c'est l'inconvenient de ces fichiers quasi anonymes

voici le bon (enfin peut-etre pas aussi bon que celui de BOISGONTIER)

Edit: Noter tout de même que dans le cas ou l'on repete la macro de notre ami apres avoir supprimé des lignes dans les feuilles N° ,il y aura un reste de la macro precedente

 

[minipuce]

Re : VBA Conso d'onglets avec condition

Bonjour,

qu'est ce qu'on apprend à votre contact ....
Je sais, c'est souvent dit, mais quand meme, il est bon de le souligner encore une fois.

Bonne journée,
Minipuce

 

[FAUB]

Re : VBA Conso d'onglets avec condition

Bonjour Pierre Jean,
Merci pour votre code qui fonctionne aussi très bien.

J'ai essayé de supprimer des lignes dans les onglets N° dans le cadre de l'utilisation de la macro de Boisgontier, à priori pas de problèmes dans la synthèse... j'espère que ça continuera.

Merci encore à tous, je sens que vous me verrez de plus en plus sur ce forum...

Bonne journée !

FAUB