Je patauge sur le positionnement dans ma base (VBA)
Ghilou14
-
Ghilou14 -
Ghilou14 -
Bonjour,
Je patauge.
Je souhaite écrire des valeurs dans une base après avoir trouvé la bonne ligne.
Je n'arrive pas à trouver et me positionner sur la bonne ligne
Voilà ce que j'ai écrit :
'**************************************************************************************************
'Récupération des données pour les enregistrer dans BDevis
Range("O7").Select
HT = ActiveCell.Value
Range("O8").Select
TVA5 = ActiveCell.Value
Range("O9").Select
TVA10 = ActiveCell.Value
Range("O10").Select
TVA20 = ActiveCell.Value
Range("O13").Select
Devis = ActiveCell.Value
'****************************************************************************************************
'Ouverture de la feuille BDevis
Sheets("BDevis").Select
'Se placer sur la cellule
Dim cel As Range
Set cel = Cells.Find(what:="Devis", lookat:=xlWhole)
'Enregistrement des valeurs du devis
ActiveCell.Offset(0, 20).Value = HT
ActiveCell.Offset(0, 21).Value = TVA5
ActiveCell.Offset(0, 22).Value = TVA10
ActiveCell.Offset(0, 23).Value = TVA20
Merci de votre aide
Je patauge.
Je souhaite écrire des valeurs dans une base après avoir trouvé la bonne ligne.
Je n'arrive pas à trouver et me positionner sur la bonne ligne
Voilà ce que j'ai écrit :
'**************************************************************************************************
'Récupération des données pour les enregistrer dans BDevis
Range("O7").Select
HT = ActiveCell.Value
Range("O8").Select
TVA5 = ActiveCell.Value
Range("O9").Select
TVA10 = ActiveCell.Value
Range("O10").Select
TVA20 = ActiveCell.Value
Range("O13").Select
Devis = ActiveCell.Value
'****************************************************************************************************
'Ouverture de la feuille BDevis
Sheets("BDevis").Select
'Se placer sur la cellule
Dim cel As Range
Set cel = Cells.Find(what:="Devis", lookat:=xlWhole)
'Enregistrement des valeurs du devis
ActiveCell.Offset(0, 20).Value = HT
ActiveCell.Offset(0, 21).Value = TVA5
ActiveCell.Offset(0, 22).Value = TVA10
ActiveCell.Offset(0, 23).Value = TVA20
Merci de votre aide
1 réponse
-
Bonjour,
ici il t'avait été demandé un fichier que tu n'as jamais fourni : https://forums.commentcamarche.net/forum/affich-37099203-recuperer-sous-vba-une-valeur-modifier-et-ecrire-dans-un-champ
eric
-
Bonjour Eriiic
J'ai réussi avec l'explication et j'ai cru envoyer le fichier qui fonctionnait.
Ma nouvelle question est :
Je choisi une valeur
Je la cherche
Je me positionne sur cette valeur (cellule)
Je me déplace de x colonnes pour y inscrire mes nouvelles données.
Si tu as besoin du fichier, j'ai gardé la procédure et je peux la joindre
Merci de ton aide.
-
