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![Confused :confused: :confused:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
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: