VBA faire une boucle (et utiliser une fonction créer)

Version imprimable

27/07/2016, 18h28
tetro27

VBA faire une boucle (et utiliser une fonction créer)

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
27/07/2016, 19h01
casefayere

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

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:

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.

voila ce que j'ai essayé :
Code:

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:

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

27/07/2016, 22h50
jerome.vaussenat
Salut,

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

Code:

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:

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:

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

A la place de :
Code:

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