Discussion :

[violet2410]

Bonjour,

Je voudrais transferer les bases de donnes d'un feuil a un autre feuil dans un meme fichier.

Je veux completer les chiffres dans le Feuil "Data chart" (colonnes AZ:BK) en utilisant les chiffres du Feuil "08 - 07 Growth" (Colonne B:M). Le probleme c'est que quand les criteres dans colonnes B ("data chart")change, les chiffres completes doivent etre change aussi.

Il y a des cas comme : colonne A = (Group ou NAOD ou EOD....), Colonne B = Services & Projets ou EMS ou BMS.....)

J'ai deja ecrit le code pour faire un exemple. vous pouvez voir aussi le fichier dans la piece jointe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CompleteData()
    Sheets("Data Chart").Select
    Sheets("08-07 Growth").Select
Set act = Sheets("Data Chart").Range("B2:B48")
Set zone = Sheets("Data Chart").Range("A2:A48")
 
If act = "Services & Projects" And zone = "Group" Then
        Sheets("08-07 Growth").Range("B8:M8").Copy
        Sheets("Data Chart").Range("AZ2:BK2").PasteSpecial (xlPasteValues)
End If
End Sub

Ce code a des erreurs que je ne sais pas comment corriger. Soit Erreur 9 (run out of subscript), soit Erreur 13 (type mismatch)

Si quelqu'un qui peut me proposer un autre facon de faire, par exemple ne pas utiliser Copy Paste. Et si je veux faire avec Select Case, comme je peux faire en utilisant 2 criteres (act et Zone)

Pourriez vous m'aider a faire ca. Vraiment je suis debutant en VBA, je viens de commencer depuis 1 semaine

[LeForestier]

Bonjour,
Je ne vois pas bien ce que tu veux faire...
tu teste acr et zone comme si c'étaient des string alors que se sont des objets Range
A+
Edit:
Que veux-tu tester dans acr et zone ?

[violet2410]

Je voudrais que les bases de donnees dans les colonnes Range (AZ:BK) va changer en correspondance avec le changement de colonne A (que j'ai nomme Zone) et de colonne B (j'ai nomme Act)

Parce que ces deux colonnes va dependre un autre feuil.

Par exemple :
- Si A2 = Group et B2 = Services & Projets, on doit completer avec les chiffres Range(B8:M8) dans "08-07 Growth"
- Mais Si A2 = NAOD et B2 = EMS, on doit completer avec les chiffres d'autres Ranges. (concretement, c'est AD8:AO8)

Ce code est seulement ma solution, mais peut etre pas efficace, si possible, tu peux me proposer une autre solution pour resoudre ce probleme ?

Merci