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
A voir également:
Je patauge sur le positionnement dans ma base (VBA)
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
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.
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.