Discussion :

[maroonx]

Bonjour tout le monde!

J'ai écrit une boucle "for each" qui ne fonctionne pas pour l'erreur "objet requis"

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
    Dim pm as Variant
    Dim assol as Integer
    Dim j As Range, i as Integer
    Set f = Sheets("feuil1")
 
        For i = 1 To UBound(pm, 1)
            For v = 2 To UBound(pm, 2)
 
                If pm(1, v).Value = f.Range(incult(i)).Value And pm(i, 0).Value = f.Range("A1:A" & f.[A65000].End(xlUp).Row) Then
                assol = assol + incult(i).Value
                End If
 
                pm(i, v).Value = assol
 
            Next v
        Next i

*incult est défini plus haut par:

Code :

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

    incult = .Range(.Cells(2, cl), .Cells(.Cells(Rows.Count, cl).End(xlUp).Row, cl))

une colonne de données située sur une autre feuille.

*pm est défini plus haut dans le code par:

Code :

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

1
2
3
4
5
    Set f = Sheets("données")
    f.UsedRange.Select
    Set pm = Selection
 
    ReDim pm(i, d)

Si quelqu'un voit quel est mon problème alors beaucoup!

[joe.levrai]

Bonjour,

y'a pas mal de choses qui interpellent.

pour commencer, je ne vois aucune boucle for each

ensuite, tu commets deux légèretés incompatibles au début de ta procédure :

1) Déclarer une variable pm en tant que Variant
2) Utiliser l'instruction Set pour instancier ta variable sur la Selection active : ta variable est un tableaux de Ranges et pas un tableau des .Values de ta Selection

Ainsi, si tu testes une valeur du tableau, tu obtient bien la valeur de la cellule :msgbox pm(1,1) te donnera bien la valeur de la première cellule de la Selection active. Mais cela n'est possible qu'en raison de la souplesse de VBA, qui prend implicitement la propriété .Value pour te l'afficher.

D'ailleurs, tu ne pourrais même pas tester pm(1,1) ... puisque juste après avoir instancié ton tableau de Range, voilà que tu lui Redim la carapace, sans ajouter l'instruction Preserve .... qui, permettant de ne pas écraser les données déjà présentes, n'autorise cette conservation que sur la dernière dimension du tableau. Te voilà coincé quoi qu'il arrive.

Et, je te laisse le soin de tester, je pense que c'est ta première boucle For/Next qui n'apprécie pas de boucler sur un tableau de range n'en contenant aucun ?

Si c'est bien ça, il ne reste qu'à :

- Redimensionner en amont la portion de la selection qu'il faut mettre dans ton tableau, plutôt que de redimensionner à postériori ton tableau
- Ne pas INSTANCIER ton Variant sur la matrice Selection, mais lui affecter le .Value

( à noter que tu peux déclarer ta variable "dim pm()" au passage)


Si c'est pas ça, il va falloir nous en dire plus, notamment la ligne exacte où ça plante et la procédure COMPLETE et pas en plusieurs morceaux dans le désordre

[maroonx]

Bonjour!

C'est sur la ligne

Code :

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

If pm(1, v).Value = f.Range(incult(i)).Value And pm(i, 0).Value = f.Range("A1:A" & f.[A65000].End(xlUp).Row) Then

que ça bug (objet requis)!
Effectivement j'ai fait une erreur en mettant "for each" je suis encore pas très à l'aise avec VBA!
Je vais revoir le code avec tes commentaires et voir si ça fonctionne!

[Invité]

Bonjour,
incult est un tableau il ne dispose pas de la propriété value!

Intéresses toi aux variables tableau et range, tu ne fais pas le distinguo!

incult = .Range(.Cells(2, cl), .Cells(.Cells(Rows.Count, cl).End(xlUp).Row, cl))

[maroonx]

Rebonjour,

Je n'ai toujours pas réussi mais j'aimerais savoir si le code suivant permets de continuer:

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
Dim pl(), pm(), pn(), po()
Dim j As Integer, assol As Integer
Dim w As Variant, z As Variant
assol = 0
 
 
Set f = Sheets("données")
f.UsedRange.Select
pl = Selection.Value
 
Set f = Sheets("données")
f.Range("C1", Range("C1").End(xlToRight)).Select
pm = Selection.Value
 
f.Range("A2", Range("A2").End(xlDown)).Select
pn = Selection.Value
 
 
Set f = Sheets("feuil2")
Range("A1", Range("A1").End(xlDown)).Select
po = Selection.Value

En fait j'aimerais savoir est-ce que je peux utiliser maintenant les données contenues dans pl() pm() et pn() dans des boucles "for" pour les comparer et compléter le tableau TabTot?

Merci d'avance!

[Invité]

Bonjour,

Oui tu peux utiliser tes variables tableau!

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim pl(), pm(), pn(), po()
Dim j As Integer, assol As Integer
Dim w As Variant, z As Variant
assol = 0
With Sheets("données")
        pl = .UsedRange.Value
        pm=.Range("C1", Range("C1").End(xlToRight)).Value
        pn=.Range("A2", Range("A2").End(xlDown)).Value
End With
po= Sheets("feuil2").Range("A1", Range("A1").End(xlDown)).Value

[maroonx]

exemple_data.xlsmRebonjour!

J'ai utilisé les codes que vous m'avez donnés mais après de très nombreuses tentative je n'arrive toujours pas à mes fins. Je bloc à un certain niveau car il y a un calcul compliqué avec plusieurs conditions.
Je vais essayer d'expliquer en espérant avoir quelques conseils:

J'ai mis un fichier exemple en PJ avec la macro. En fait mon problème c'est d'utiliser les données des colonnes qui ont été définies dans une boucle "for" avec "if" car il faut comparer les cellule entre elles avec plusieurs contraintes!

Je donne un exemple: (pour année 2010)

Comme A3("données") = B4("Feuil1") et C1("donnée") = K4("feuil1") alors C2("données") = valeur D4("feuil1") ensuite
A3 = B5 et C1 = K5 alors C2= valeur D4(précédente) + D5
A3 = B6 et C1 = K6 alors C2= valeur D4(précédente) + D6 etc...

autre exemple:
Comme A4 = B10 et E1 = K10 alors E4 = valeur D10

autre exemple:
Comme A4 = B11 et C1 = K11 alors C4 = valeur D11 etc...


Les numéros de la ligne 1 sont sélectionnés en fonction de l'année choisi, car il y en a bcp (ici c'est un extrait) et donc je voulais que seuls les numéros présents l'année x choisie soit placés en entête. La feuille "données" est générée par le code mais je l'ai laissée ici pour illustrer l'exemple.

Donc en faite chaque ligne de A dans "données" est comparée à toute les lignes de B dans "feuil1". Et chaque numéro de l'entête est comparé à toute les ligne de l'année sélectionnée.

C'est vraiment compliqué et je sais pas si je peux faire ça avec VBA? Ou peut-être que je devrais aborder le problème autrement?
Si quelqu'un a un conseil

Ha oui! la ligne

Code :

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

If mondico.Exists(a(i, 2)) Then mondico(a(i, 2)) = a(i, 2)

ne sert à rien pour l'instant mais permettra de convertir les nombres de l'entête en données qualitatives à partir de la "feuil2" en remplaçant "=a(i, 2)" par "= a(i, 1)".

[Invité]

Le problème c'est que tu regardes cela comme un tout.

Comme le disait Descartes, un problème compliqué n'est rien d'autre qu'une sommes de problème simple.

Découpes ton problème, n créant des fonctions.
Je fais une boucle sur un tableau1, je passe ma valeurs à un fonction ainsi que le tableau2 et la fonction me retourne le résultat!

Je suis dans le train mais dès que possible je te donne un exemple!

[maroonx]

Re,

Merci ça ma donnée une idée mais si je peux avoir un exemple c'est gentil!

[Invité]

En attendant,la question qu'il faut te poser, c'est ce qui fait que la valeur A colle avec la valeur B.

Les boucles viennent après!

Code :

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

1
2
3
If A<B Then
Else
End if

[maroonx]

Ce sont des valeurs numériques et j'ai défini les colonnes que je dois comparer en tant que tableau en affectant à une variable les coordonnées de la plage avec un ". value"...

Oui mais par exemple chaque valeur de la colonne A dans "données" devra être comparée à toute les valeur de la colonne B dans "feuil1" or avec "si A<B" les cellules sont comparées une seule fois deux à deux non?

[Invité]

On commence par reprendre à la question la plus simple!

Ensuite on passe à la question supérieur et ainsi de suite!

Mais dès que j'arrive j'analyse ton fichier!

[maroonx]

Et en même temps chaque cellule de l'entête (enfin la plage concernée) devra être comparée à toutes les cellules de la colonne sélectionnée par l'utilisateur

[Invité]

Oui mais par exemple chaque valeur de la colonne A dans "données" devra être comparée à toute les valeur de la colonne B dans "feuil1" or avec "si A<B" les cellules sont comparées une seule fois deux à deux non?

C'est bien ce que je te dis, tu raisonnes en globalité!

Je suis en A55 et en B123 quel teste je fais pour savoir si c'est Ok ou Ko!

Ensuite la boucle sur les colonnes viendra!

[maroonx]

Code :

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

If .sheets("feuil1").Cells(55, 1).value = .sheets("feuil2").Cells(123, 2)).Value then

Non? Je suis encore pas très bon alors de tête c'est un peu compliqué

Ici si je remplace les deux nombre par un "i" je vais comparer chaque cellule de A avec chaque cellule de B. Mais comment faire pour comparer chaque cellule de A avec toutes les cellules de B?

Dans le fichier que j'ai posté, il faut remplacer l'entête "EXP" dans la feuille "données" par "I_PACAGE" ça sera bcp plus compréhensible!

[Invité]

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
28
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean) As Long '
On Error Resume Next
Dim CellEntrier As Integer
If EntierCell = True Then CellEntrier = xlWhole Else CellEntrier = xlPart
SerchXls = 0
   SerchXls = Myrange.Cells.Find(what:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=CellEntrier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row Then SerchXls = 0
End Function
 
Function AditionValeur(strRecherche, Myrange As Range) As Double
Dim R As Long
R = 1
While R > 0
    R = SerchXls(Myrange, Myrange(R, 1), strRecherche, True)
    If R > 0 Then AditionValeur = AditionValeur + Myrange(R, 1).Offset(0, 2)
Wend
 
End Function
Sub Main()
With Sheets("données")
R = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(2, "B"), .Cells(R, "B")).FormulaR1C1 = "=AditionValeur(RC[-1],Feuil1!R[-1]C:R[147]C)"
.Range(.Cells(2, "B"), .Cells(R, "B")).Value = .Range(.Cells(2, "B"), .Cells(R, "B")).Value
End With
 
End Sub

Edite:
Petite erreur!

Code :

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

.Range(.Cells(2, "B"), .Cells(R, "B")).FormulaR1C1 = "=AditionValeur(RC[-1],Feuil1!C2)"

[RyuAutodidacte]

Bonjour,
Je suis d'accord avec @rdurupt, stop les neurones qui vont dans tous les sens pour résoudre le problème dans sa globalité, ceux-ci vont exploser .
Prends le temps de réfléchir sur les différents problèmes à résoudre un par un.
Je résous chaque étape du processus séparément et quand chacune des étapes marchent séparément, J'essaie d'optimiser puis je réunis le tout
A la limite utiliser un texte littéral pour définir les actions , ex :
Je compare ma range toto à ma range titi si valeurA de toto = valeurF de titi alors fais cette action (action peut être fais aussi séparément pour être réuni par la suite)
Fais ca pour chaque problème et réunis le tout ca sera plus simple

[maroonx]

Rebonjour!!

Désolé je me suis endormi j'ai la tête qui chauffe!
Alors déjà merci bcp pour ce que vous m'avez envoyé!! Cependant j'arrive pas à comprendre le code et je crois que je me suis peut-être mal expliqué sur ce que je dois faire!!

En fait la feuille "données" est nommée ainsi à tord car elle est générée à partir des données de feuille 1!

Donc chaque numéro "I_PACAGE"(feuille: "données") (Noté "EXP" sur l'exemple mais en fait c'est "I_PACAGE") est comparé à tous les "I_PACAGE" de la "Feuil1" + Chaque valeur d'entête (feuille: "données") est comparé aux numéros trouvés dans "année"(feuille: "feuil1").

A chaque fois que les deux conditions sont respectées dans une cellule du tableau ( feuille: "données") on additionne la valeur de la cellule de D (feuille: "feuil1") correspondante.

En fait tous les" I_PACAGE" qui sont égaux de la colonne B (feuille: "feuil1") se retrouve sur la même ligne de "I_PACAGE" (feuille: "données") et il sont différenciés (deuxième dimension) par la valeur du numéro contenue dans la colonne "année" (feuille: "feuil1").

J'essaye de comprendre le code mais je ne sais pas si on s'était bien compris?...
Merci encore et désolé ça faisait trop longtemps que j'étais là-dessus sans pause!!

Bonjour RyuAutodidacte,

Je compare ma range toto à ma range titi si valeurA de toto = valeurF de titi alors fais cette action (action peut être fais aussi séparément pour être réuni par la suite)

D'accord mais mon cas j'ai deux comparaisons à faire en même temps c'est ça qui me pose problème! J'essaye de faire comme vous dites et de séparer le problème mais pour l'instant c'est compliqué...

Est-ce que je peux vérifier la première condition et stocker la réponse dans une variable, puis vérifier la deuxième condition et la stocker dans une variable; pour enfin appliquer une action sur la cellule si les deux sont vraies??

rdurupt,

serait-il possible d'avoir des commentaires pour les lignes du code car je n'arrive à bien le comprendre!
En te remerciant d'avance!!

[Invité]

mon code recherche les valeur de la feuille(données).EXP dans feuille(Feuil1).I_PACAGE et somme feuille(Feuil1).SURF_part et place le résultat dans feuille(données).SURF_tot

vue que je trouve le même résulta j'en conclus que je ne suis pas trop à coté de la plaque!
donc j'en conclu qu'il me suffi de générer la feuille(données) avant d’exécuter le code qui suit!

Code Début Macro :

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

1
2
3
4
5
6
7
Sub Main()
With Sheets("données")
R = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row 'je recherche le nombre de lignes EXP  
.Range(.Cells(2, "B"), .Cells(R, "B")).FormulaR1C1 = "=AditionValeur(RC[-1],Feuil1!C2)" 'j'afect une formule sur la plage SURF_part fonction qui boucle sur I_PACAGE 
.Range(.Cells(2, "B"), .Cells(R, "B")).Value = .Range(.Cells(2, "B"), .Cells(R, "B")).Value  'je remplace mes formules par leurs valeur!
End With
End Sub

Code Recherche et additionne SURF_part :

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

1
2
3
4
5
6
7
Function AditionValeur(strRecherche, Myrange As Range) As Double
Dim R As Long
R = 1 'Première ligne
While R > 0 'Tan que différent de 0;si je ne trouve pas alors 0
    R = SerchXls(Myrange, Myrange(R, 1), strRecherche, True) 'je recherche le N° de ligne dans  I_PACAGE 
    If R > 0 Then AditionValeur = AditionValeur + Myrange(R, 1).Offset(0, 2) 'si je trouve je retourne la somme
Wend

Code moteur de recherche :

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

1
2
3
4
5
6
7
8
9
10
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean) As Long '
On Error Resume Next
Dim CellEntrier As Integer
If EntierCell = True Then CellEntrier = xlWhole Else CellEntrier = xlPart
SerchXls = 0
   SerchXls = Myrange.Cells.Find(what:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=CellEntrier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row Then SerchXls = 0
End Function

[maroonx]

Re,

mon code recherche les valeur de la feuille(données).EXP dans feuille(Feuil1).I_PACAGE et somme feuille(Feuil1).SURF_part et place le résultat dans feuille(données).SURF_tot

C'est bien ce que je cherche à faire mais en partie seulement je crois!

Par contre je ne comprends pas la formule:

Code :

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

"=AditionValeur(RC[-1],Feuil1!C2)"

que veut dire RC[-1]?
Pour le C2 je suppose qu'en fait c'est C3?, puisque c'est la colonne D qui doit être additionnée.

J'ai mis une image en exemple, c'est peut-être... dîtes moi si c'est bien ce que vous aviez compris?