Problème avec activecell.offset

Ryou · 4 Mars 2009

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 · 4 Mars 2009

Re : Problème avec activecell.offset

Bonjour

Ci dessous le code à modifier

Code:

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 · 4 Mars 2009

Re : Problème avec activecell.offset

Ton code fonctionne bien avec cette petite modification

Code:

Sheets("reclamations").Select

Ryou · 4 Mars 2009

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 · 5 Mars 2009

Re : Problème avec activecell.offset

Bonjour

Ci dessous le fichier avec les procédures

A tester

JP

Ryou · 5 Mars 2009

Re : Problème avec activecell.offset

Merci beaucoup ca marche nickel.
A bientôt.

Problème avec activecell.offset

Ryou

Guest

jp14

XLDnaute Barbatruc

jetted

XLDnaute Occasionnel

Ryou

Guest

jp14

XLDnaute Barbatruc

Pièces jointes

Ryou

Guest

Discussions similaires

Problème avec activecell.offset

Ryou

Guest

jp14

XLDnaute Barbatruc

jetted

XLDnaute Occasionnel

Ryou

Guest

jp14

XLDnaute Barbatruc

Pièces jointes

Ryou

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency