Bonsoir à tous,
Je cherche à utiliser chaque caractère des variables de Macro dans
des cellules d'une feuille pour remplir un imprimé bancaire. Chaque caractère est correspond à une cellule.
Pour explication :
Dim NbFact As String
NbFact = WorksheetFunction.Text(WorksheetFunction.CountA(Range("B:B")) - 1, "00000")
Voilà le bout de la macro qui va initialiser les cellules du nombre de factures
Range("X11").Select
ActiveCell.FormulaR1C1 = "=IF(MID(NbFact,1,1)<>""0"",MID(NbFact,1,1),"""")"
Range("Y11").Select
ActiveCell.FormulaR1C1 = "=IF(MID(NbFact,2,1)<>""0"",MID(NbFact,2,1),"""")"
Range("Z11").Select
ActiveCell.FormulaR1C1 = "=IF(MID(NbFact,3,1)<>""0"",MID(NbFact,3,1),"""")"
Range("AA11").Select
ActiveCell.FormulaR1C1 = "=IF(MID(NbFact,4,1)<>""0"",MID(NbFact,4,1),"""")"
Range("AB11").Select
ActiveCell.FormulaR1C1 = "=IF(MID(NbFact,5,1)<>""0"",MID(NbFact,5,1),"""")"
Le problème est que le résultat des formules ci-dessus est #NOM? sur chaque cellule car il ne reconnait pas ma variable. Comment faire ?
car je dois refaire ce travail pour le montant, la date de la remise, le numéro de bordereau ....
Un grand merci pour votre aide