Discussion :

[coco78440]

Bonjour à tous,

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

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
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

[Menhir]

Code :

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

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

[halaster08]

Bonjour,

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

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 :

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

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

[coco78440]

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 :

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

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

. Merci de vos conseils

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
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

[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

[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 :

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

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

[sogedic]

Bonjour

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

Code :

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

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