Discussion :

[Feldenn]

Bonjour,

Voici mon problème :

Je souhaite effectuer un test sur les cellules de la colonne A du classeur "tableau de pilotage".
Je veux que la macro détermine la ligne à laquelle la valeur d'une cellule dans la colonne A du classeur "tableau de pilotage" correspond à la valeur de la cellule fusionnée "CU2 : DN2" du classeur "FCA_xxx" (le nom du fichier est variable) et copie une ligne spécifique dans le classeur "FCA_xxx" et la colle à la place de la ligne correspondante dans le classeur "tableau de pilotage"

Voici mon morceau de code :

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
21
22
23
 
Sub MAJ()
 
ActiveWorkbook.Sheets("Synthèse").Select
If UCase(Range("n10")) = 0 Then     'cas pour 0 action (dans la suite du code je copie 1,2 3,4 ou 5 lignes selon le nombre d'actions)
Range("A10:X10").Select
selection.Copy
Workbooks.Open Filename:= _
        "\\chemin\Tableau de Pilotage FCA.xls"
 
ActiveWorkbook.Sheets("Tableau de suivi").Select
Range("A3").Select
While ActiveCell <> ThisWorkbook.Sheets("Modèle").Range("CU2:DN2")
 
ActiveCell.Offset(1, 0).Select
 
Wend
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
...

J'ai remarqué en faisant un tour sur le forum qu'il était déconseillé d'utiliser la fonction selection.copy mais à vrai dire je suis débutant en VBA et ne sais pas comment m'en passer !

Merci d'avance pour l'aide que vous pourriez m'apporter !

Feldenn

[Feldenn]

Rebonjour,

J'ai apporté quelques modifs à mon code notamment en définissant une variable :

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
21
22
23
24
25
26
Sub MAJ()
 
Dim NomFCA As Variant
 
ActiveWorkbook.Sheets("Modèle").Range("CU2:DN2").Value = NomFCA
 
 
ActiveWorkbook.Sheets("Synthèse").Select
If UCase(Range("n10")) = 0 Then     'cas pour 0 action
Range("A10:X10").Select
selection.Copy
Workbooks.Open Filename:= _
        "\\chemin\Tableau de Pilotage FCA.xls"
 
ActiveWorkbook.Sheets("Tableau de suivi").Select
Range("A3").Select
While ActiveCell <> NomFCA
 
ActiveCell.Offset(1, 0).Select
 
Wend
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End If

Le soucis c'est qu'il détecte la valeur de NomFCA comme étant vide alors qu'il y a bien quelque chose d'écrit dedans (FCA_55).
Est-ce que j'aurais mal défini ma variable ?

Need help

Feldenn

[Marc-L]

Bonjour, bonjour !

Comme le VBA ne se trompe pas, l'erreur est donc dans la conception !

Suivre le code en mode pas à pas via la touche F8 tout en contrôlant le contenu de la fenêtre des Variables locales
aide à trouver la boulette … (Au passage tu verras l'oubli de l'alimentation de cette variable !)


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Igloobel]

Bonjour,

... correspond à la valeur de la cellule fusionnée "CU2 : DN2" du classeur "FCA_xxx" ...

Dans le cas d'une cellule fusionnée, il est inutile de tester le contenu de CU2 jusqu'à DN2 car les informations sont uniquement dans CU2 (la première) dans les autre c'est vide.

Pour avoir eu des soucis sur certains classeurs, il vaut mieux ne pas mettre d'accent dans les nom d'onglet et les noms de cellule même s'il l'accepte (du vécu)

A+

[Feldenn]

J'ai trouvé la solution à mon problème donc je vais l'exposer ici, ça peut toujours servir.

Voilà le morceau de code en question

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
21
22
23
24
25
26
27
Sub MAJ() 'macro pour la maj automatique du tableau de pilotage lors de la modification d'une FCA
 
Dim NomFCA As Variant, value As String 'on définit la variable NomFCA
 
NomFCA = ActiveWorkbook.Sheets("Modèle").Range("CU2").value    'je ne prend que la 1ère cellule du groupe de cellules fusionnées
 
 
ActiveWorkbook.Sheets("Synthèse").Select 'Copie des lignes en fonction du nombre d'actions
    If UCase(Range("n10")) = 0 Then         'Cas pour 0 action
        Range("A10:X10").Select
        selection.Copy
        Workbooks.Open Filename:= _
            "\\chemin\Tableau de Pilotage FCA.xls"
 
        ActiveWorkbook.Sheets("Tableau de suivi").Select
        Range("A3").Select
 
        While ActiveCell <> NomFCA      'tant que la valeur de la cellule active n'est pas égale à celle de la variable "NomFCA", je descends d'une ligne
 
            ActiveCell.Offset(1, 0).Select
 
        Wend
            selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _           'collage spécial : valeur d'une plage de données
            :=False, Transpose:=False
            ActiveWorkbook.Save
            ActiveWorkbook.Close
    End If

Il me reste maintenant à modifier le code pour lui dire d'insérer des lignes si nécessaire pour ne pas supprimer la ligne du dessous s'il n'y a pas la place pour plusieurs actions (donc plusieurs lignes).

Merci pour votre aide

Feldenn