Discussion :

[Bricoltou]

Bonsoir le Fil ,

J'ai modifié un fichier trouvé sur un forum , mais j'ai un problème lorsque je saisie avec l'userfom,celle ci est décalé .
Pouvais vous m'aider ,
Merci d'avance pour votre aide
Si vous pouvier m'explique mon erreur , car je ne comprend pas pourquoi cela ne fonctionne pas car j'ai essayé toute les solutions que je connais mais je suis débutant en VBA

Vous pouver télècharger le fichier a cet endroit

http://www.cijoint.fr/cjlink.php?fil...cijne3Wls0.zip

@+
Bricoltou

[bosk1000]

bonsoir

dans le formulaire
sur cette partie du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CdBuOK_Click()
With Sheets("saisie")
Dl = .Range("B65000").End(xlUp).Row + 1
    .Cells(Dl, 1) = TextBox1
    .Cells(Dl, 2) = CbBoxvehicule
   .Cells(Dl, 3) = TBoxKmdepart
   .Cells(Dl, 4) = TBoxKmarrive
   .Cells(Dl, 5) = CbBoxchauffeur_gasoil
   .Cells(Dl, 6) = TBoxlitre
End With
Me.Hide
End Sub

a la place j'ai fait cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CdBuOK_Click()
With Sheets("saisie")
.Range("b65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
.Range("c65536").End(xlUp).Offset(1, 0).Value = CbBoxvehicule.Value
.Range("d65536").End(xlUp).Offset(1, 0).Value = TBoxKmdepart.Value
.Range("e65536").End(xlUp).Offset(1, 0).Value = TBoxKmarrive.Value
.Range("f65536").End(xlUp).Offset(1, 0).Value = CbBoxchauffeur_gasoil.Value
.Range("g65536").End(xlUp).Offset(1, 0).Value = TBoxlitre.Value
End With
Me.Hide
End Sub

ça fonctionne

[Klotz]

Ben?
Cells(Dl, 1) se trouve évidemment en 1° colonne , voilà pour quoi cela semble fonctionner quand tu supprimes la col A, mais pour ton tableau, il suffit en fait de commencer en col 2 pour écrire à partir de la col B...
Donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Sheets("saisie")
Dl = .Range("B65000").End(xlUp).Row + 1
    .Cells(Dl, 2) = TextBox1
    .Cells(Dl, 3) = CbBoxvehicule
   .Cells(Dl, 4 = TBoxKmdepart
   .Cells(Dl, 5) = TBoxKmarrive
   .Cells(Dl, 6) = CbBoxchauffeur_gasoil
   .Cells(Dl, 7) = TBoxlitre
End With

Comme quoi on peut faire un truc bien et tout, et bloquer sur une brindille...

La précédente solution proposée fonctionne, mais si par malheur la moindre lettre avait été saisie dans une colonne, gare aux dégâts...

A+

[Bricoltou]

Bonjour le Forum,Klotz,Bosk1000

Merci a tout les deux pour vos réponse , Klotz j'avais déja essayé ton code la saisie fonctionne mais lorsque je fais plusieurs saisie le cumul colonne C onglet Global ne se fait pas ainsi que le pave consommation mensuel et consommation au 100 KM .
C'est pour cela que je ne comprend pas .
Je vais essayer le code de Bosk1000
Qu'en pensez vous ?

[Klotz]

Pas de pb, mais mon code était le tien...

J'ai seulement changé 1 en 2, etc. (et grillé une parenthèse à côté du 4, mais je pense que tu l'avais rectifié!); par contre, tu peux aussi rajouter ".Value" en bout de ligne, bien que je ne pense pas que cela change grand'chose.

Mon idée est surtout d'être sûr d'avoir les données sur une seule et même ligne.

[Bricoltou]

Bonsoir le Fil,Klotz

Klotz,merci pour ta réponse pour finir le code fonctionne seul le format des cellules n'était pas bon ce qui génèrais le problème des reports .

Merci encore pour ton aie

Bricoltou