Discussion :

[soba18]

Bonjour à tous !

Mon premier post sur ce forum qui m'a déjà à de très nombreuses reprises sauvé la vie !

Je ne suis pas débutante avec VBA ou en tout cas je suis 3 pitchnettes au-dessus de ce niveau, mais là je bloque. Généralement, j'arrive à m'en sortir après plusieurs heures de recherches et de crises de nerfs, mais là je ne trouve pas.

Malheureusement, je ne vais pas pouvoir vous donner les fichiers sur lesquels je travaille, car ils sont internes à l'entreprise où je travaille.

J'ai deux fichiers nommons-les : Mensuel.xlsm et KPIs.xlsm

Dans Mensuel.xlsm j'ai un tableau où des colonnes s'ajoutent de mois en mois. Il y a un champs qui m'intéresse pour COPIER : les cellules de la ligne 6 à 12 sous la colonne intitulée Total ME % (et qui n'est donc pas fixes de fois en fois !)

Dans KPIs.xlsm j'ai un tableau avec des colonnes fixes où je veux COLLER le champs de mon fichier Mensuel.xlsm

Donc je cherche bien à faire un copié collé sous condition (je ne savais même pas que c'était possible) : copier les cellules de la ligne 6 à 12 de la colonne intitulée Total ME % (donc copier si on trouve Total ME %)

Pourriez-vous m'aider ???

Un grand grand grand merci !!!

Et je suis d'avance désolée si je ne suis pas dans la bonne partie du forum !
So'

[Menhir]

Dans Mensuel.xlsm j'ai un tableau où des colonnes s'ajoutent de mois en mois. Il y a un champs qui m'intéresse pour COPIER : les cellules de la ligne 6 à 12 sous la colonne intitulée Total ME % (et qui n'est donc pas fixes de fois en fois !)

Tu trouves la colonne contenant le texte "Total ME %" en lançant un Find sur la zone de tes titres et tu mets le résultat dans une variable de type Range.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx

Après avoir vérifié que le Find a trouvé quelque chose en testant si la variable n'est pas Nothing, tu peux obtenir la valeur de sa colonne avec la propriété Column à mettre dans une seconde variable de type Integer.
https://msdn.microsoft.com/fr-fr/lib.../ff198200.aspx

Ensuite, tu pourras utiliser cette seconde variable dans des Cells pour définir la zone à copier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(6, MaColonne), Cells(12, MaColonne)).Copy

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Intersect(Rows("6:12"), Columns(MaColonne)).Copy

[Patrice740]

Bonjour,

Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
Const titre$ = "Total ME %"  'Titre de la colonne à chercher
Dim rngSrc As Range          'Plage source
Dim celDst As Range          'Cellule destination
 
  ' Définir la cellule destination : à adapter (feuille et cellule)
  Set celDst = Workbooks("KPIs.xlsm").Worksheets("FeuilleDestination").Range("A1")
  ' Chercher la plage source : à adapter (feuille et n° de ligne des titres)
  With Workbooks("Mensuel.xlsm").Worksheets("FeuilleSource").Rows(1)
    Set rngSrc = .Find(What:=titre, after:=.Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
    If rngSrc Is Nothing Then
      MsgBox "Colonne " & titre & "  non trouvée. "
      Exit Sub
    Else
      Set rngSrc = Intersect(rngSrc.EntireColumn, .Parent.Rows("6:12"))
    End If
  End With
  rngSrc.Copy Destination:=celDst
 
End Sub

[soba18]

Avant tout MERCI !

Je vais abuser de la générosité de mes deux sauveurs !

Pouvez-vous m'expliquer ce que je dois adapter pour que le code cherche également la colonne Total Déch% et me copie la cellule 12 ?

J'essaie de l'adapter moi-même mais je n'y parviens pas

MERCI MERCI MERCI

[Menhir]

J'essaie de l'adapter moi-même mais je n'y parviens pas

Tu plaisantes !!!
Dans l'explication, tu remplaces "Total ME %" par "Total Déch%" et "6:12" par "12".

[soba18]

C'est le matin ! J'ai réussi à faire une grosse erreur d'oublier un expace et une deuxième d'oublier de modifier 6:12 en 12 ...

Je suis bien désolée !!!! J'ai juste eu le temps de m'énerver sur moi-même 1 coup et j'ai trouvé ...

Pardon sauveur 1 je ne voulais pas vous offenser ! Mais du vba le matin, c'est pas fait pour moi :s

Belle journée à vous !