Code ne marchant pas Résolu/Fermé

Question

Bonjour, 

Le code se trouvant dans le fichier si dessous ne marche pas, je ne vois pas l'erreur.
Code étant dans l'userform "Mouvements" Lors du click sur le premier "Ok".

Pouvez-vous m'éclairer ?

	https://www.cjoint.com/?3LpmmwtyZG1

Merci,

DGVDR
Configuration: Windows Vista / Chrome 39.0.2171.95

f894009 · Answer

Bonjour,

Combobox  ------> chaine de caractere(s)

cellules format standard donc nombre pour Cuve

declaration variables:

Dim cuvee As Integer, cuver As Integer

jordane45 · Answer

Bonjour,

Tu peux tester ceci :

Private Sub CommandButton1_Click()
Dim cuvee As Integer
Dim cuver As Integer
Dim vol As Integer
Dim valDI As Integer
With Worksheets("Cuvées")
derlig = .Range("D65536").End(xlUp).Row
cuvee = Int(ComboBox1.Value)
cuver = Int(ComboBox2.Value)
vol = Int(TextBox1.Value)
 For i = 9 To derlig
   valDI = Int(.Range("D" & i).Value)
   If valDI = cuvee Then
      .Range("N" & i).Value = .Range("N" & i).Value - vol
   End If
   If valDI = cuver Then
      .Range("N" & i).Value = .Range("N" & i).Value + vol
   End If
 Next i
End With

Unload Me

End Sub

DGVDR · Answer

Bonjour,

Comme écrit ci-dessus , problème résolu.

Merci f894009,

Merci jordane45 pour ton temps, je suis aller au plus simple et j'ai simplement changer la déclaration des variables.

Damien

DGVDR · Answer

Rebonjour,

Autre avancée, autre problème :

Toujours à partir du même userform j'aimerai pouvoir supprimer une ligne si la cuve est soldée (vidée) par mon mouvement.

La suppression fonctionne très bien sauf que l'incrémentation de la cuve réceptrice ne se fait pas.


https://www.cjoint.com/?3LppN5jpOwf

Remarque : L'incrémentation et la suppression se font bien lorsque j'incrémentes d'une cuve émétrice se trouvant dans une ligne ayant un indice supérieur vers une cuve se trouvant dans une ligne avec un indice inférieur.

Merci de votre aide,

DGVDR

f894009 · Answer

Re,

je regarde la chose

A+

f894009 · Answer

Re,

fichier modifie: https://www.cjoint.com/c/DLpqsHVkf8t

DGVDR · Answer

Parfait,

Merci de ton aide précieuse.

DGVDR

Code ne marchant pas

7 réponses

Discussions similaires

Newsletters