Discussion :

[rossemma]

Bonjour,
Je voudrais faire une boucle sur les colonnes
j'ai essayé le code suivant mais cela plante
J'ai ajouté une image de mon tableau.

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
Private Sub worksheet_activate()
 
Dim x As Variant
Dim cvak As Variant
Dim cvek As Variant
 
For x = 2 To 15
 
cvak = Application.WorksheetFunction.VLookup(sh_check.Range(x & ":25"), sh_parameters.Range("$B$3:$G$16"), 4, 0)
cvek = Application.WorksheetFunction.VLookup(sh_check.Range(x & ":25"), sh_parameters.Range("$B$3:$G$16"), 5, 0)
 
 
    Me.Range(x & "26").Value = Application.WorksheetFunction.Somme(cvak & "2:" & cvak & sh_month.UsedRange.Rows.Count - 1)
    'me.Range(x & "27").Value =
Next x
 
 
End Sub

Merci beaucoup.

[MarcelG]

Bonjour rosemma,

Content de te retrouver.

L'expression

Code :

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

.Range(x & "26").

n'a pas de signification.
En effet, x est une variable Byte(et non Variant comme tu l'écris).
Utiliser plutôt l'objet Cells.

De plus, les fonctions de feuille de calcul s'orthographient en VBA en anglais.
(exemple : "Sum" et non "Somme")

A quoi correspond "Scheck". La variable est-elle (bien) déclarée?

Le cas échéant, reviens avec le code complet en précisant le(s) point(s) d'achoppement si une erreur survient.

[rossemma]

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
Private Sub worksheet_activate()
 
Dim x As Byte
Dim cvak As Variant
Dim cvek As Variant
 
cvak = Application.WorksheetFunction.VLookup(Me.Range(x & "25"), sh_parameters.Range("$B$3:$G$16"), 4, 0)
cvek = Application.WorksheetFunction.VLookup(Me.Range(x & "25"), sh_parameters.Range("$B$3:$G$16"), 5, 0)
 
For x = 2 To 15
    Me.Range(x & "26").Value = Application.WorksheetFunction.Sum(cvak & "2:" & cvak & sh_month.UsedRange.Rows.Count - 1)
    'me.Range(x & "27").Value =
Next x
 
 
End Sub

Voici le tableau que je veux remplir; il se trouve dans la feuille codename sh_check :



Explication :
Je voudrais remplir ce tableau de façon automatique.
faire une recherche sur la ligne 25 (B25, C25,...). sur base cette info, il va rechercher dans une autre feuille une info, voir image ci dessous :



faire somme dans la ligne 26 sur base de lettre récupérée dans la recherche et ligne 2 (ex: B2) jusque dernière ligne remplie dans la colonne B de la feuille sh_month.

Pas facile à expliquer, j'espère avoir été clair.

Merci pour ton aide.

[MarcelG]

j'espère avoir été clair.

Non.
Pourrais-tu faire des copies d'écran
1 - des données telles qu'elles se présentent
2 - du résultat que tu souhaites obtenir sur un exemple précis.

S'il te plaît, réponds aux questions.
Notamment sur celle quant à la déclaration des variables (sh_parametres)
Il te faut retourner tous les codes concernés.

Igloobel.
C'est ce que j'ai mentionné;, non?

[rossemma]

voici le code modifié :

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
Private Sub worksheet_activate()
 
Dim x As Byte
Dim cvak As Variant
Dim cvek As Variant
 
For x = 2 To 15
 
cvak = Application.WorksheetFunction.VLookup(Me.Cells(25, x), sh_parameters.Range("$B$3:$G$16"), 4, 0)
cvek = Application.WorksheetFunction.VLookup(Me.Cells(25, x), sh_parameters.Range("$B$3:$G$16"), 5, 0)
 
    Me.Cells(26, x).Value = Application.WorksheetFunction.Sum(cvak & "2" & ":" & cvak & sh_month.UsedRange.Rows.Count - 1)
    Me.Cells(27, x).Value = Application.WorksheetFunction.Sum(cvek & "2" & ":" & cvek & sh_month.UsedRange.Rows.Count - 1)
 
Next x
End Sub

je vais faire des captures et les mettre

[rossemma]

feuille sh_check


feuille sh_parameters


feuille sh_month


je voudrais faire la somme de C2 à la dernière ligne de la feuille sh_month à savoir 550650,50
cela doit apparaitre en B26 de la feuille check.

je remets mon code car découvert une petite erreur dans la formule de recherche:

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
Private Sub worksheet_activate()
 
Dim x As Byte
Dim cvak As Variant
Dim cvek As Variant
 
For x = 2 To 15
 
cvak = Application.WorksheetFunction.VLookup(Me.Cells(25, x), sh_parameters.Range("$B$3:$G$16"), 5, 0)
cvek = Application.WorksheetFunction.VLookup(Me.Cells(25, x), sh_parameters.Range("$B$3:$G$16"), 6, 0)
 
    Me.Cells(26, x).Value = Application.WorksheetFunction.Sum(cvak & "2" & ":" & cvak & sh_month.UsedRange.Rows.Count - 1)
    Me.Cells(27, x).Value = Application.WorksheetFunction.Sum(cvek & "2" & ":" & cvek & sh_month.UsedRange.Rows.Count - 1)
 
Next x
 
End Sub

[Igloobel]

Oui
j'avais commencer à répondre puis j'ai été déranger pour une urgence quand j'ai fini ma réponse j'ai pas penser à regarder si d'autre avait répondu entre temps


DSL

[MarcelG]

Rien de grave, Igloobel

Rosemma,
Encore une fois tu retournes tous les codes.
Sur les captures, seront reportées les données initiales et les résultats (avec entêtes de lignes et colonnes)

[Igloobel]

Bonjour,

ça cela ne marche pas

Range(x & "26").Value

Un range a besoin de lettre exemple : Range("B" & "26").Value

par contre ça cela marche

Cells(26,x).Value

Cells fonctionne avec des N° ligne et colonne exemple Cells (26,x).value


NB: Cells fonctionne à l'inverse de range au point de vue des paramètres => Cells(N° ligne, N° de colonne)