calimero75
XLDnaute Nouveau
bonjour à tous,
j'aimerai incrémenter la valeure d'une cellule suite à différents tests effectués dans une macro mais j'ai une ERREUR "incompatibilité de type" .
Afin d'éviter de passer par plusieurs variables..., car de nombreuses cellules sont testées, je voudrai procéder de la manière suivante :
pFichier = Application.GetOpenFilename("Fichier Excel,*.xls")
If pFichier = False Then Exit Sub
Set classeurSources = Workbooks.Open(pFichier)
Set classeurCible = ThisWorkbook
...
classeurCible.Sheets("feuille").Cells(1, i) = classeurCible.Sheets("feuille").Cells(1, i) + 1
Ma cellule est pourtant en format nombre
Comment procéder ????
Un grand merci
j'aimerai incrémenter la valeure d'une cellule suite à différents tests effectués dans une macro mais j'ai une ERREUR "incompatibilité de type" .
Afin d'éviter de passer par plusieurs variables..., car de nombreuses cellules sont testées, je voudrai procéder de la manière suivante :
pFichier = Application.GetOpenFilename("Fichier Excel,*.xls")
If pFichier = False Then Exit Sub
Set classeurSources = Workbooks.Open(pFichier)
Set classeurCible = ThisWorkbook
...
classeurCible.Sheets("feuille").Cells(1, i) = classeurCible.Sheets("feuille").Cells(1, i) + 1
Ma cellule est pourtant en format nombre
Comment procéder ????
Un grand merci
Dernière édition: