Discussion :

[[ZiP]]

Bonjour,

Je rencontre une erreur sur cette ligne :

Code :

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

1
2
 
Selection.Formula = "=RECHERCHEH($D$8;Général!$CV$2:$DP$1065;25;FAUX)"

L'erreur est la suivante :

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

Si j'enploie la syntaxe suivante, ça marche :

Code :

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

1
2
 
Selection.Formula = ""

Le problème vient donc du contenu de la formule, mais, je ne vois pas où...

Voici mon code complet :

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 MaT_F_Initial_Fiche_Individuelle()
    Dim ligne, colonne, ligne_debut, ligne_fin As Integer
    Dim compteur As Integer
 
    'Initialisation de la plage de cellules à parcourrir
    ligne_debut = 26
    ligne_fin = 1064
    colonne = 6
 
    'Position de la première cellule
    compteur = 25
 
    'On se positionne sur le bon onglet
    Worksheets("Fiche individuelle").Activate
 
    For ligne = ligne_debut To ligne_fin Step 2
        'On sélectionne notre plage de cellules
        Range(Cells(ligne, colonne), Cells(ligne, colonne)).Select
 
        'On place notre formule dans la cellule
        Selection.Formula = "=RECHERCHEH($D$8;Général!$CV$2:$DP$1065;" & compteur & ";FAUX)"
 
        'On passe à la cellule suivante
        compteur = compteur + 2
    Next ligne
End Sub

Merci,
ZiP

[mercatog]

bonjour
au lieu du formula, fais un formulalocal

Code :

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

Selection.Formulalocal = "=..."

[[ZiP]]

Effectivement, ça fonctionne avec FormulaLocal !

Merci,
ZiP

[mercatog]

Mieux sans le select (qui ne fait qu'attarder l'exécution du code)

Code :

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

Cells(ligne, colonne).Formulalocal = "=RECHERCHEH($D$8;Général!$CV$2:$DP$1065;" & compteur & ";FAUX)"

[[ZiP]]

Oui, c'est un peu plus rapide optimisé comme ça.

Merci,
ZiP