VBA probléme

Bonjour

Je suis bloqué sur un travail en VBA. Je ne suis pas experte mais je pense que ce code doit fonctionner.

Mais lorsque j'exécute, aucune information n'est saisie.

Pouvez vous m'aider svp

Sub Rendementperiode()

'Je déclare les variable

Dim Calcul As Worksheet

Dim BDD As Worksheet

'J'associe au variable les bon onglets

Set Calcul = Sheets("Calcul"): Set BDD = Sheets("BDD")

For i = 2 To 50

J'évite les erreurs (cas ou une cellule et vide)

If BDD.Cells(237, i) Or BDD.Cells(2, i) = False Then GoTo 10

'Voila la formule je vais expliquer ma démarche : ex : i = 5

'la cellule (5, 5) cad E5 dans le classeur calcul est égal à = ((la cellule (237, 5) de l'onglet BDD / cellule de l'onglet BDD (2, 5)) - 1)

Calcul.Cells(5, i) = (BDD.Cells(237, i) / BDD.Cells(2, i)) - 1

10

Next i

End Sub

Voila mais quand j'exécute aucune erreur simplement le calcul n'est pas effectué.

Merci d'avance

Bonjour,

Avec un classeur exemple, c'est mieux,...... bien mieux

Déjà à cet endroit:

If BDD.Cells(237, i) Or BDD.Cells(2, i) = False

BDD.Cells(237, i), il faut lui mettre une condition (False je suppose)

If BDD.Cells(237, i)= False Or BDD.Cells(2, i) = False

Ouep, je te met ca en piéce jointe

Merci d'avance, si tu peux y jetter un coup d'oeil

up

Merci

Re,

Teste comme ceci

Sub Rendementperiode()
Dim Calcul As Worksheet
Dim BDD As Worksheet
Dim i As Integer
    Set Calcul = Sheets("Calcul"): Set BDD = Sheets("BDD")
        For i = 2 To 5
        'Pour l'exemple je limite a 5 colonne de valeurs
            If BDD.Cells(2, i) = "" Or BDD.Cells(25, i) = "" Then GoTo 10
                Calcul.Cells(2, i) = (BDD.Cells(25, i) / BDD.Cells(2, i)) - 1
10
            Next i
End Sub

Niquel

Merci beaucoup beaucoup ^^