Problème avec activecell.offset

[Ryou]

Bonjour à tous,
Je fais actuellement un formulaire traitant des réclamations techniques des clients.
Le soucis que j'ai actuellement c'est que lorsque je choisis dans le bouton liste "type batiment", j'aimerai que la valeur que j'indique soit directement mis dans la colonne B.Et là je ne comprends pas pourquoi il ne veut rien savoir, il me place cette valeur n'importe comment.Pour les autres j'ai pas de soucis mais celui là je ne comprends pas.Peut-être un soucis avec le bouton date saisie?
Je débute en VBA donc si je n'ai pas été assez précis n'hésitez pas à me le faire remarquer.
En vous remerciant d'avance.
Fichier joint.
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[jp14]

Re : Problème avec activecell.offset

Bonjour


Ci dessous le code à modifier

Au début des procédures
[COLOR="red"]
Dim lig As Long ' pour conserver le numéro de ligne avec la date
[/COLOR]

Private Sub jour_Click()
With Worksheets("reclamations")
[COLOR="red"]
    lig = .Range("A65536").End(xlUp)(2).Row [/COLOR]
  .Range("A" & .Range("A65536").End(xlUp)(2).Row) = Date
 End With

End Sub



Private Sub validation_Click()
[COLOR="red"]
With Sheets("reclamations")
.Range("a" & lig).Select
[/COLOR]
ActiveCell.Offset(0, 1).Value = BATIMENT.Value 'gros soucis peut être en relation avec le bouton sub jour
ActiveCell.Offset(0, 2).Value = NOM.Value 'ok

A tester

JP

 

[jetted]

Re : Problème avec activecell.offset

Ton code fonctionne bien avec cette petite modification

Sheets("reclamations").Select

 

[Ryou]

Re : Problème avec activecell.offset

Merci d'abord à vous deux pour vos réponses, mais toujours le même soucis, la valeur "type bâtiment" ne se met pas dans la bonne cellule.
.Range("a" & lig).Select "y'a un soucis
Sinon remplacer activate par select, cela ne fait aucun changement.

 

[jp14]

Re : Problème avec activecell.offset

Bonjour

Ci dessous le fichier avec les procédures

A tester

JP

 

[Ryou]

Re : Problème avec activecell.offset

Merci beaucoup ca marche nickel.
A bientôt.