Erreur code formule

Version imprimable

Erreur code formule

Bonjour à tous,

Je débute en VBA et j'ai fait une macro simple :

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 MAJSuiviValo()
'
' MAJSynth Macro
'
 
Dim noColonne As Integer
 
Dim moisAfaire As String
Dim mois As String
 
 
Sheets("Suivi_Valo").Activate
 
moisAfaire = Sheets("PasAPas").Range("B1")
 
noColonne = "=MATCH(moisAfaire,Suivi_Valo!R[2])"
mois = Cells(3, noColonne)
 
    Columns(noColonne - 1).Select
    Selection.Copy
    Columns(noColonne).Select
    ActiveSheet.Paste
 
    Range("H3,H17,H26,H40,H49,H63") = mois
     Columns(noColonne - 1).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

J'utilise la formule index pour trouver un numéro de colonne. Il semble que cela buggue sur Suivi_Valo!R[2]. Pouvez-vous me dire ce qui ne va pas et comment améliorer ? Merci bcp.

Max

19/09/2018, 08h57
Menhir
Citation:
Code:

1 2 Dim noColonne As Integer noColonne = "=MATCH(moisAfaire,Suivi_Valo!R[2])"
Ces deux lignes sont incompatibles : tu définis noColonne comme une variable de type Integer mais tu mets dedans une chaine de caractères.
C'est sûr qu'elle ne va pas être d'accord.

Lis ça : https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx
19/09/2018, 09h00
halaster08
Bonjour,

Utilise plutôt la balise code (bouton #) que la balise quote pour mettre ton code, c'est plus lisible

Citation:

Il semble que cela buggue

Merci d'être plus précis, un message d'erreur ? si oui lequel, si non quel est le probleme ?
Code:

1 2 Dim noColonne As Integer noColonne = "=MATCH(moisAfaire,Suivi_Valo!R[2])"
Tu affecte du texte a une variable integer, je suppose que tu voulais lui affecter le résultat de la formule dans ce cas intéresse toi à la méthode worksheetfunction.match

Bonjour,

Merci de votre réponse. Voici désormais mon code. A l'exécution, j'ai une erreur 1004, impossible de lire la propriété Match de la class worksheetFunction. Je vois que la valeur affectée à moisAfaire est bien la bonne. Pour info, lorsque je fais la fonction sous Excel hors VBA, c'est

Code:

=EQUIV(PasAPas!B1;Suivi_Valo!A3:N3)

. Merci de vos conseils
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 30 Sub MAJSuiviValo() ' ' MAJSynth Macro ' Dim noColonne As Integer Dim MaPlage As Range Dim moisAfaire As String Dim mois As String Sheets("Suivi_Valo").Activate Set MaPlage = Range(Cells(3, 1), Cells(3, 14)) moisAfaire = Sheets("PasAPas").Range("B1") noColonne = WorksheetFunction.Match(moisAfaire, MaPlage) mois = Cells(3, noColonne) Columns(noColonne - 1).Select Selection.Copy Columns(noColonne).Select ActiveSheet.Paste Range("H3,H17,H26,H40,H49,H63") = mois Columns(noColonne - 1).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False End Sub

20/09/2018, 08h51
unparia

Bonjour
Commence par déclarer et typer la variable moisAfaire et par préciser la propriété de l'objet range que tu lui affectes ;)
21/09/2018, 08h56
coco78440

Bonjour,

Désolé je débute et ne m'en sors pas. Je pensais avoir bien déclaré moisAfaire vu que j'ai mis :

Code:

Dim moisAfaire As String

Pourtant quand je regarde la valeur affectée à moisAfaire lorsque j'exécute la macro, c'est bien la bonne valeur.

Max

Bonjour

C'est assez bizarre, il semblerait que la plage de recherche doit etre sur une colonne seulement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub ggg() Dim noColonne As Variant Dim myrange As Range Set myrange = ActiveSheet.Range("A1:A3") noColonne = Application.WorksheetFunction.Match(1, myrange, 0) If IsError(noColonne) Then MsgBox "err1" Set myrange = ActiveSheet.Range("A1:B3") noColonne = Application.WorksheetFunction.Match(1, myrange, 0) If IsError(noColonne) Then MsgBox "err2" End Sub
et en faisant le test sous Excel, la fonction Equiv ne trouve pas non plus si la plage de recherche est A1:B3 alors que la valeur cherchée est bien en A1

Je n'avais jamais remarqué et pourtant j'utilise cette fonction souvent, mais j'ai toujours du rechercher sur une colonne

Merci pour l'info:D

22/09/2018, 23h15
halaster08

Citation:

Envoyé par sogedic

C'est assez bizarre, il semblerait que la plage de recherche doit etre sur une colonne seulement

Une seule colonne ou ligne, ce qui est le cas du demandeur puisqu'il prend la plage A3:N3 le problème n'est pas là

Code:

Dim moisAfaire As String

Pour un numéro de mois j'utiliserais plutôt une variable numérique que du texte

Bonjour,

Précises la recherche, exacte !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub MAJSuiviValo()
 
    Dim Plage As Range
    Dim noColonne As Variant
    Dim moisAfaire As String
    Dim mois As String
 
    With Worksheets("Suivi_Valo"): Set Plage = .Range(.Cells(2, 1), .Cells(2, .Columns.Count).End(xlToLeft)): End With 'sur la ligne 2
 
    moisAfaire = Sheets("PasAPas").Range("B1").Value
 
    noColonne = Application.Match(moisAfaire, Plage, 0)
    If IsError(noColonne) Then MsgBox "Valeur non trouvée dans la plage !": Exit Sub
 
    'suite du code...
    '...
    '...
 
End Sub

Bonjour,

Merci pour vos réponses. J'ai testé la solution de Theze mais j'ai toujours un souci (il ne trouve pas la valeur).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub MAJSuiviValo() ' ' MAJSynth Macro ' Dim noColonne As Variant Dim MaPlage As Range Dim moisAfaire As String Dim mois As String Sheets("Suivi_Valo").Activate With Worksheets("Suivi_Valo"): Set Plage = .Range(.Cells(2, 1), .Cells(2, .Columns.Count).End(xlToLeft)): End With 'sur la ligne 2 moisAfaire = Sheets("PasAPas").Range("B1").Value noColonne = Application.Match(moisAfaire, Plage, 0) If IsError(noColonne) Then MsgBox "Valeur non trouvée dans la plage !": Exit Sub mois = Cells(3, noColonne)
Lorsque je passe ma souris sur noColonne, je vois une erreur 2042. Pourtant la valeur est bien présente et la formule EQUIV fonctionne directement sous Excel avec les mêmes données.

Merci de votre aide.

Maxime

24/09/2018, 09h16
Menhir

As-tu essayé ce que t'a proposé halaster08 dans le post #8 ?
24/09/2018, 16h03
Theze
Bonjour,

Tes valeurs sont en ligne 2 ou ligne 3 ? halaster08 parle de ligne 3 :

Citation:

Une seule colonne ou ligne, ce qui est le cas du demandeur puisqu'il prend la plage A3:N3 le problème n'est pas là

(alors que dans ton code c'est (R2) :
Code:

1 2 noColonne = "=MATCH(moisAfaire,Suivi_Valo!R[2])"
donc, précises car quand je teste mon code, il me retourne bien le numéro de la colonne où est situé le texte cherché et donc trouvé !
Quelle est la valeur cherchée, une date peut être ?

Bonjour Theze,

Merci pour votre aide. C'est bien en ligne 3 sous l'onglet Suivi_Valo. J'ai corrigé dans le code. Sur cette ligne, dans chaque case, les dates sont de la forme 01/06/2018. En B3 onglet "PasAPas" c'est une liste déroulante qui prendre sa source en ligne 3 de Suivi_Valo. Lorsque j'exécute le code, la macro récupère bien la bonne donnée en B3 (moisAfaire) mais j'ai toujours le no erreur 2042 sur noColonne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub MAJSuiviValo() ' ' MAJSynth Macro ' Dim Plage As Range Dim noColonne As Variant Dim moisAfaire As String Dim mois As String With Worksheets("Suivi_Valo"): Set Plage = .Range(.Cells(3, 1), .Cells(3, .Columns.Count).End(xlToLeft)): End With 'sur la ligne 2 moisAfaire = Sheets("PasAPas").Range("B1").Value noColonne = Application.Match(moisAfaire, Plage, 0) mois = Cells(3, noColonne)
Merci !

25/09/2018, 10h36
halaster08
Citation:
Envoyé par coco78440

Lorsque j'exécute le code, la macro récupère bien la bonne donnée en B3 (moisAfaire)

Code:

1 2 3 4 Dim noColonne As Variant Dim moisAfaire As String Dim mois As String
Non il ne récupère pas la bonne valeur, Excel interprète les date comme des valeur numérique 01/06/2018=43313
Donc j'insiste (déjà dit plus haut et redis par Mehnir) plutôt que de typer tes variables de mois en texte (string), il vaut mieux utiliser un type numérique(long)
26/09/2018, 11h33
coco78440
Bonjour,

Merci, cela fonctionne désormais ! J'ai une autre difficulté plus loin dans mon code. J'ai une boucle qui fonctionne parfaitement. Par contre dans Excel c'est directement le résultat qui est affiché lorsque je suis sur les cases Excel (3+i,15). J'aimerais voir les formules pour que le résultat se mette à jour dynamiquement sous Excel si je change une des cases entrant dans le calcul. Est-ce possible ?
Code:

1 2 3 4 5 For i = 1 To 8 Cells(3 + i, 15) = Cells(3 + i, noColonne) - Cells(3 + i, noColonne - 1) 'MAJ de evol m/m-1 et evol FY Next
Maxime