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