Erreur dans ma procedure vba
frederique
-
frederique -
frederique -
Bonjour a tous, j'suis nouvelle sur le site et gspr que vous pourrez m'aider.
G écrit cette proc:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 13/05/2005 par rieusset
'
Dim a As Integer
a = Range("B18").Value
If Range("B18").Value < Range("Avancement!I16").Value Then
Range("O4").Formula = "= Sheets(Effectifs!)Cells(5, a).Value "
End If
If a > Range("Avancement!I16") Then
Range("O4").Value = "=1+(Cells(18,2)-Avancement!Cells(16,9))/(Avancement!Cells(16,9))"
End If
End Sub
Mais elle fonctionne pas a mon avis g des problèmes pour désigner mes feuilles
ma feuille courant est Calcul Indicateur et l'autre feuille est Avancement et la dernière est Effectifs
moi je veux créer une variable "a" qui soit la valeur inscrite dans la cellule B18 de la feuille"Calcul indicateur"
Si "a"< valeur cellule I16(feuille "Avancement")
alors
cellule"O4"valeur=valeur cellule col "a" ligne"5" de la feuille "Effectifs"
et si "a">valeur I16 (feuill Avancement)
alors
valeur O4=1+(B18-I16(feuil avancement))/(I16 (feuill avancement))
je pense que je me trompe dans l'écriture formelle, j'espere que vous saurez m'aider
G écrit cette proc:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 13/05/2005 par rieusset
'
Dim a As Integer
a = Range("B18").Value
If Range("B18").Value < Range("Avancement!I16").Value Then
Range("O4").Formula = "= Sheets(Effectifs!)Cells(5, a).Value "
End If
If a > Range("Avancement!I16") Then
Range("O4").Value = "=1+(Cells(18,2)-Avancement!Cells(16,9))/(Avancement!Cells(16,9))"
End If
End Sub
Mais elle fonctionne pas a mon avis g des problèmes pour désigner mes feuilles
ma feuille courant est Calcul Indicateur et l'autre feuille est Avancement et la dernière est Effectifs
moi je veux créer une variable "a" qui soit la valeur inscrite dans la cellule B18 de la feuille"Calcul indicateur"
Si "a"< valeur cellule I16(feuille "Avancement")
alors
cellule"O4"valeur=valeur cellule col "a" ligne"5" de la feuille "Effectifs"
et si "a">valeur I16 (feuill Avancement)
alors
valeur O4=1+(B18-I16(feuil avancement))/(I16 (feuill avancement))
je pense que je me trompe dans l'écriture formelle, j'espere que vous saurez m'aider
1 réponse
-
-
Bonjour,
si alors voilà un script qui doit répondre à ton besoin. Par contre c'est peut être un peu long mais au moins assez "propre" :
================================
Sub calcul()
Dim WS_Indicateurs As Worksheet, WS_Avancement As Worksheet, WS_Effectifs As Worksheet
Dim Cel_B18 As Range, Cel_A5 As Range, Cel_I16 As Range, Cel_O4 As Range
Set WS_Avancement = ThisWorkbook.Worksheets("Avancement")
Set WS_Indicateurs = ThisWorkbook.Worksheets("Calcul Indicateurs")
Set WS_Effectifs = ThisWorkbook.Worksheets("Effectifs")
Set Cel_B18 = WS_Indicateurs.Range("B18")
Set Cel_O4 = WS_Indicateurs.Range("O4")
Set Cel_I16 = WS_Avancement.Range("I16")
Set Cel_A5 = WS_Effectifs.Range("A5")
If Cel_B18.Value < Cel_I16.Value Then
Cel_O4.Value = Cel_A5.Value
End If
If Cel_B18.Value > Cel_I16.Value Then
Cel_O4.Value = 1 + (Cel_B18.Value - Cel_I16.Value) / Cel_I16.Value
End If
'
End Sub
===================================
Voilà, bonne chance pour la suite
Mattiou -
-
-
-
-
