insertion de cellules dans une formule excel

Version imprimable

Bonjour,
Je suis novice dans le domaine, je commence à utiliser l'enregistreur de macro, mais j'ai une application qui dépasse ses possibilités je pense.
Je dois travailler des données annuelles (données en colonnes et dates en lignes) et constituer un reporting dans un tableau avec les mêmes données en colonnes et en lignes en ne retrouve plus que les mois.
Mes tableaux de données de bases (nombreux 70!) n'ont pour l'instant pas le même format (les données ne sont pas dans les mêmes colonnes et le premier janvier ne commence pas sur la même ligne (ce serait trop simple).

J'ai écrit le code suivant qui bloque sur la formule à la fin. J'ai utilisé la formule à partir d'une créée avec l'enregistreur (seconde macro : modform) dans laquelle j'ai inséré la variable P avec l'offset pour constituer la plage du mois de janvier, mais vb ne doit pas comprendre la valeur de P dans la formule.

voici ce que ça donne:
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 28 29 Sub SAISIR() ' ' SAISIR Macro ' Macro enregistrée le 08/06/2008 par BARRE ' Dim P As Range 'sélectionne la cellule de données pour janvier du paramètre choisi Dim cible As Range 'sélectionne la cellule du tableau récap pour janvier pour le paramètre choisi Dim x As Range 'sélectionne la cellule contenant la valeur maxi pour le paramètre choisi On Error Resume Next Set P = Application.InputBox("Sélectionnez la cellule de départ :", Type:=8) On Error GoTo 0 If P Is Nothing Then MsgBox "Sélection annulée" On Error Resume Next Set cible = Application.InputBox("Sélectionnez la cellule d'arrivée :", Type:=8) On Error GoTo 0 If cible Is Nothing Then MsgBox "Sélection annulée" On Error Resume Next Set x = Application.InputBox("Sélectionnez la contenant la valeur maxi :", Type:=8) On Error GoTo 0 If x Is Nothing Then MsgBox "Sélection annulée" cible.FormulaR1C1 = _ "=(COUNTIF(P:P.offset(30,0);"">X""))/(COUNTA(P:P.OFFSET(30,0)))" cible.Select End Sub
en dessous c'est la macro de base dont je me suis inspiré
Code:

1 2 3 4 5 6 7 8 9 10 Sub model_form() ' ' model_form Macro ' Macro enregistrée le 08/06/2008 par BARRE ' ' ActiveCell.FormulaR1C1 = _ "=(COUNTIF(R[-42]C[-2]:R[-3]C[-2],"">10""))/(COUNTA(R[-42]C[-2]:R[-3]C[-2]))" Range("D44").Select
Merci d'avance de votre aide
:coucou:

Bonjour

essaye ca :

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
28
29
' Macro enregistrée le 08/06/2008 par BARRE
'
    Dim P As Range
'sélectionne la cellule de données pour janvier du paramètre choisi
    Dim cible As Range
'sélectionne la cellule du tableau récap pour janvier pour le paramètre choisi
    Dim x As Range
    dim saisie as string
'sélectionne la cellule contenant la valeur maxi pour le paramètre choisi
    On Error Resume Next
    saisie = Application.InputBox("Sélectionnez la cellule de départ :", Type:=8)
    set p = range(saisie)
    On Error GoTo 0
    If P Is Nothing Then MsgBox "Sélection annulée"
    On Error Resume Next
    saisie = Application.InputBox("Sélectionnez la cellule d'arrivée :", Type:=8)
    set cible = range(saisie)
    On Error GoTo 0
    If cible Is Nothing Then MsgBox "Sélection annulée"
    On Error Resume Next
    Set x = Application.InputBox("Sélectionnez la contenant la valeur maxi :", Type:=8)
    On Error GoTo 0
    If x Is Nothing Then MsgBox "Sélection annulée"
    
    
   cible.FormulaR1C1 = _
        "=(COUNTIF(P:P.offset(30,0);"">X""))/(COUNTA(P:P.OFFSET(30,0)))"
    cible.Select
End Sub

bonne soirée

re:

je crois avoir oublié quelque chose

Code:

cible.Formula = "=(COUNTIF(" & P.address & ":" & P.offset(30,0).address & ";"">X""))/(COUNTA(" & P.address & ":" & P.offset(30,0).address & "))"

08/06/2008, 21h46
nazaire

Bonjour wilfried_42,

Merci de m'avoir répondu.
La macro ne fonctionne pas elle plante dès la première saisie. Après avoir saisi la cellule de départ j'ai un message d'erreur "sélection annulée".
:(
je vais chercher ce qui pourrait planter

a+

re:

voici ta macro

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
 
Sub essai()
    Dim P As Range
'sélectionne la cellule de données pour janvier du paramètre choisi
    Dim cible As Range
'sélectionne la cellule du tableau récap pour janvier pour le paramètre choisi
    Dim x As Range
    Dim formule As String
'sélectionne la cellule contenant la valeur maxi pour le paramètre choisi
    On Error Resume Next
    Set P = Application.InputBox("Sélectionnez la cellule de départ :", Type:=8)
    On Error GoTo 0
    If P Is Nothing Then MsgBox "Sélection annulée"
    On Error Resume Next
    Set cible = Application.InputBox("Sélectionnez la cellule d'arrivée :", Type:=8)
    On Error GoTo 0
    If cible Is Nothing Then MsgBox "Sélection annulée"
    On Error Resume Next
    Set x = Application.InputBox("Sélectionnez la contenant la valeur maxi :", Type:=8)
    On Error GoTo 0
    If x Is Nothing Then MsgBox "Sélection annulée"
    formule = "=CountIF(" & P.Address & ":" & P.Offset(30, 0).Address & "," & Chr$(34) & ">" & x.Value & Chr(34) & ")"
    formule = formule & "/"
    formule = formule & "COUNTA(" & P.Address & ":" & P.Offset(30, 0).Address & ")"
    cible.Formula = formule
End Sub

J'ai eu du mal avec le format anglais jusqu'à je ce que percute
en francais le separateur des arguments dans une fonction est le ; en anglais c'est la ,

ps : je ne connaissais pas le type 8 dans les inputbox

11/06/2008, 19h12
nazaire

Bonjour wilfried_42,

J'ai testé la macro, elle fonctionne telle que je le souhaitait,un grand merci à toi.:king:

Je vais maintenant tenter de comprendre mes erreurs et comprendre les codes que tu as modifiés.

:yaisse2: