VBA Pb de déf de valeurs
onra
-
onra -
onra -
Bonjour,
Je suis entrain de mettre en palce un outil en programmant sous VBA pour Excel.
J'ai donc un module qui me permet de récupérer des valeurs (nombre) ou chaîne de caractères dans une base de donnés (toujours sous Excel) pour les recopier dans une autre feuille.
Pour les chaîne de caractère il n'y a pas de problème. mais pour les nombres , je n'arrive pas à lire. Rien à faire, j'ai beau essayé Val() , Value. ....
Voici le code:
For l = 7 To Cells(50, 1).End(xlUp).Row
If Not Rows(l).Hidden Then R = R + 1
Next
For k = 12 To (R + 12)
Workbooks("SBTest").Worksheets("Récap").Activate
Cells(k, 1).Select
Selection.EntireRow.Insert
m = k - 11
n = k - 6
Worksheets("Récap").Cells(k, 2) = "Lot n°" & m
Worksheets("Récap").Cells(k, 5) = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 2)
Worksheets("Récap").Cells(k, 6) = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 4)
Workbooks("SBTest").Worksheets("Récap").Cells(k, 7).Value = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 3).Value
Workbooks("SBTest").Sheets("lot1").Copy After:=Sheets("lot" & m)
ActiveSheet.Name = "lot" & m + 1
Next k
C'est donc la ligne : W().Cells(k,7).value=W().W().Cells(n,3).Value
qui devrait me copier un nombre de la feuille récap marché vers la feuille récap.
Si quelqu'un peut me sortir de ce meauvais pas....
Merci d'avance
Je suis entrain de mettre en palce un outil en programmant sous VBA pour Excel.
J'ai donc un module qui me permet de récupérer des valeurs (nombre) ou chaîne de caractères dans une base de donnés (toujours sous Excel) pour les recopier dans une autre feuille.
Pour les chaîne de caractère il n'y a pas de problème. mais pour les nombres , je n'arrive pas à lire. Rien à faire, j'ai beau essayé Val() , Value. ....
Voici le code:
For l = 7 To Cells(50, 1).End(xlUp).Row
If Not Rows(l).Hidden Then R = R + 1
Next
For k = 12 To (R + 12)
Workbooks("SBTest").Worksheets("Récap").Activate
Cells(k, 1).Select
Selection.EntireRow.Insert
m = k - 11
n = k - 6
Worksheets("Récap").Cells(k, 2) = "Lot n°" & m
Worksheets("Récap").Cells(k, 5) = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 2)
Worksheets("Récap").Cells(k, 6) = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 4)
Workbooks("SBTest").Worksheets("Récap").Cells(k, 7).Value = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 3).Value
Workbooks("SBTest").Sheets("lot1").Copy After:=Sheets("lot" & m)
ActiveSheet.Name = "lot" & m + 1
Next k
C'est donc la ligne : W().Cells(k,7).value=W().W().Cells(n,3).Value
qui devrait me copier un nombre de la feuille récap marché vers la feuille récap.
Si quelqu'un peut me sortir de ce meauvais pas....
Merci d'avance
A voir également:
- VBA Pb de déf de valeurs
- Excel liste de valeurs - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- Quand on visite cette page, des messages sont échangés entre le navigateur et le site web. des extraits des messages échangés lors de la première connexion sont reproduits ci-dessous. des valeurs ont été remplacées par des numéros. retrouvez chacune de ces valeurs. - Forum Windows 10
J'ai déjà essayé un truc du Style
Dim ValMontant As Range
Set ValMontant = W().W().Cells(n,3)
W().W().Cells(k,7) =ValMontant
Mais ca n'a pas merché.
Y a t'il quelque chose que j'ai oublié où mal fait?
A plus