Discussion :

[tetro27]

Bonjour, pour commencé je suis loin d'être un expert avec VBA donc voici mon problème. Je cherche a créer une boucle qui utilise une fonction que j'ai créer. Mon problème majeure est que mes données sont sur une feuille différente de celle où je voudrais que mon résultat apparaisse.

sur la feuille 1 : j'ai des données
sur ma feuille 2 : j'aimerai que mes réponse apparaisse ici

j'aimerai que la boucle fasse la fonction pour toutes les lignes et ensuite, lorsque terminé, passe a l'autre colonne(incrémentation de 1 colonne) et ainsi de suite
P.S: le nombre de colonne et de ligne vont varier d'une fois a l'autre, Voici mon autre difficulté je suis capable pour une plage définie mais je ne suis pas capable lorsqu'il faut dynamisé la boucle.

merci a l'avance

[casefayere]

Bonsoir,
et si tu publiais le(s) code(s) que tu as déjà préparé(s)

[jerome.vaussenat]

Salut,

Voici une proposition de code pour faire un parcourt de l'ensemble de ton tableau.

Dans cet exemple, je suis parti sur la fait que le haut du tableau est en A3 (ligne 3, colonne 1)

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
Sub partourt()
    Dim ligne As Integer
    Dim col As Integer
 
    col = 1
    '1 pour colonne A
    ligne = 3
    '3 pour ligne 3
 
    'boucle pour parcourir les colonnes
    Do Until col > Range("A3").End(xlToRight).Column
        'boucle pour parcourir les lignes
        Do Until ligne > Range("A3").End(xlDown).Row
            'le travail à faire
            MsgBox ligne & "/" & col
            'passage à la ligne suivante
            ligne = ligne + 1
        Loop
        'passage à la colonne suivante
        col = col + 1
        'pour cette nouvelle colonne, on se "replace" en haut de tableau pour les lignes
        ligne = 3
    Loop
 
End Sub

Pour toi, tu ajoutes le code que tu veux à la place de la msgbox.

[tetro27]

voila ce que j'ai essayé :

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
Sub rend3()

Dim r As Integer
Dim c As Integer

Sheets("histo").Select
c = 3
r = 15
Do Until Cells(r, 3) = ""
    Do Until r = Cells(2, c).Value
        rendement3ans(
        
    r = r + 1
    Loop
c = c + 1
Loop


End Sub

je ne comprend pas comment spécifié a ma fonction que la cellule qu'elle doit prendre est sur la feuille histo et que je veut le resultat sur la feuille rendement
cells(2,c) est une cellule avec le compte du nombre de données (lignes) que j'ai.

voici ou je suis bloqué maintenant :

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 rend3()

Dim r As Integer
Dim c As Integer
Dim rr As Integer
Dim cc As Integer
c = 3
r = 15
rr = 7
cc = 4

x = Sheets("histo").Select  (cells(r,c).value-cells.Offset(r+1095,c).Value)/cells.Offset(r+1095,c).Value)
Do Until Cells(15, c) = ""
    Do Until Cells(r, 3) = ""
    
        Sheets("rendement").Select
        Cells(rr, cc).Select
        Cells(rr, cc) = x
        rr = rr + 1
        cc = cc + 1
    r = r + 1
    Loop
c = c + 1
Loop


End Sub

[jerome.vaussenat]

Salut,

Tu n'as pas besoin de sélectionner une cellule pour modifier son contenu.
En faisant :

Code :

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

cells(1,1).value

Tu peux modifier le contenue de la cellule A1.

Il en est de même au niveau des feuilles de calcul.

Quand tu ecris

Code :

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

Cells(1,1).value

Excel part considère la feuille de calcul active. Mais on peut très bien intérroger ou modifier le contenu d'une cellule située dans une feuille non active. Pour cela il faut préciser le nom de la feuille avec la cellule. Ce qui donne :

Code :

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

        Sheets("rendement").Cells(rr, cc).value = x

A la place de :

Code :

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

1
2
3
Sheets("rendement").Select
        Cells(rr, cc).Select
        Cells(rr, cc) = x