Discussion :

[Mrfreeze117]

Bonjour voici ma macro:

Code :

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

1
2
3
4
5
6
7
8
9
Sub BEV(m As Byte)
 
Dim c As Integer
 
    c = Sheets("Présence").Rows(19).Find(m, LookAt:=xlWhole).Columns
 
    MsgBox c
 
End Sub

m varie entre 1 et 12 et est une valeur entière.

Quelque soit la valeur de m c=m et je ne comprends pas pourquoi.

Merci d'avance de votre aide.

[Marc-L]

Bonjour, bonjour !

Un langage informatique c'est comme l'orthographe, aucune faute n'est admise ‼

Placer donc le curseur texte clignotant sur Columns puis appuyer sur la touche !

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Mrfreeze117]

Merci beaucoup,

Petite question annexe, comment ça ce fait du coup que je n'ai pas eu de message d'erreur?

Merci d'avance

[Marc-L]

C'est pourtant évident :   la réponse ne contenant qu'une cellule donc l'unique élément de la collection Columns …