yakutake83
XLDnaute Occasionnel
Bonjour bonjour!
Voilà, suite à plusieurs manips, je me retrouve obligé d'avoir mes titres de colonnes en 2ème ligne! Ca ne me dérangerait pas plus que ça si je n'avais pas une macro qui utilise les titres des colonnes, et qui plante dans cette situation (je viens de m'en rendre compte... faut dire que je l'ai pas utilisée depuis que j'ai fait les nouvelles manips)!
Bref, je suis dans le pétrin!
Je vous mets ici la partie de la macro qui permet de lire les titres de colonnes lorsque ceux-ci sont en première ligne:
J'ai essayé en remplaçant ("A1:IV1") par ("A2:IV2"), mais ça plante quand même!
Si quelqu'un pouvait me rectifier l'erreur sur cette portion de macro, ça m'arrangerait énormément (et ça me soulagerait pour le Week-End ) !
Merci d'avance!
Voilà, suite à plusieurs manips, je me retrouve obligé d'avoir mes titres de colonnes en 2ème ligne! Ca ne me dérangerait pas plus que ça si je n'avais pas une macro qui utilise les titres des colonnes, et qui plante dans cette situation (je viens de m'en rendre compte... faut dire que je l'ai pas utilisée depuis que j'ai fait les nouvelles manips)!
Bref, je suis dans le pétrin!
Je vous mets ici la partie de la macro qui permet de lire les titres de colonnes lorsque ceux-ci sont en première ligne:
Dim ColIntrouvable as Boolean
Function NumColumn(TexteRech As String) As Byte 'permet de prendre le nom de la colonne au lieu de son code
ColIntrouvable = False
On Error GoTo erreur
NumColumn = Range("A1:IV1").Find(TexteRech, lookat:=xlWhole).Column
Exit Function
erreur:
ColIntrouvable = True
End Function
J'ai essayé en remplaçant ("A1:IV1") par ("A2:IV2"), mais ça plante quand même!
Si quelqu'un pouvait me rectifier l'erreur sur cette portion de macro, ça m'arrangerait énormément (et ça me soulagerait pour le Week-End ) !
Merci d'avance!