incrementer

[chilo]

bonjour le forum

je reviens avec mon petit soucis d'incrementation

je parviens à incrementer mais au résultat obtenu j'ai un point que signale le format lettre

donc j'utilise Cint pour le convertier en format chiffre

mais je n'ai plus l'incrementation

si vous pouvez jeter un oeil

cesait sypa
merci

 

[job75]

Re : incrementer

Bonjour chilo, le forum,

Votre macro ne faisait rien, alors déjà j'ai modifié ça :

Private Sub CmdValider_Click()
'--------------
            Else
              [COLOR="Red"]GoTo 1[/COLOR]  ' lancer la sub Modifier
'---------------

Ensuite :

    'mise en place des données clients
[B][COLOR="Red"][SIZE="3"]1[/SIZE][/COLOR][/B]    With Sheets("Contact")
    
        With .[A1].Offset(.[A65535].End(xlUp).Row)
        
            .Value = CInt(ComboBox1) 'jai ajouter le cint
            
            .Resize(10).[COLOR="Red"]DataSeries[/COLOR]    ' Incrémentation
            
            .Offset(, 1) = ComboBox6
            .Offset(, 2) = ComboBox7
            .Offset(, 3) = ComboBox8
            .Offset(, 1).Resize(, 3).Copy .Offset(, 1).Resize(10) ' Copy des autres données (nécessaire ?)
            
    End With: End With

Pas terrible le remplissage de vos ComboBox avec la propriété RowSource. Faut revoir ça.

Bon courage.

A+

 

[chilo]

Re : incrementer

bonjour ou rebonjour le forum
et JOB75

Merci pour la modification je serai pas arrivé
par ailleurs, je ne suis pas trop fort, je cherche tout simplement à
améliorer les outils de travail pour me simplifier la vie
merci donc de m'y aider. et je suis toujours prèt à apprendre

donc 1 pour le goto

en saisaissant par ex 101 une seconde fois le message me demande si je veux le modifier
en disant oui la série s'incrémenait une nouvelle fois
donc pour empecher cela j'ai mis un exit sub

2) pour le rowsource comment faire autrement, je ne connais que cette routine
3) pour le rempllissage des combobox là aussi je ne connais que ce procédé

ta remarque est d'autant important que les données que je vais rentrer la suite seront lourds à gérer
si vous pouviez me guider la dessus serait sympa

merci encoure une fois

 

[JNP]

Re : incrementer

Bonjour Chilo, Job75 🙂,
Utilise la méthode AddItem

For i = 2 To 3900
If Sheets("contact").Cells(i, 1) <> "" Then
ComboBox1.AddItem Sheets("contact").Cells(i, 1)
End If
Next i

par exemple. Ça supprimera déjà toutes les lignes blanches de ton combobox.
Bon dimanche 😎

 

[job75]

Re : incrementer

Re, salut Jean-Noël 🙂

On peut en effet utiliser la méthode AddItem proposée par JNP.

On peut aussi utiliser la méthode RowSource comme suit :

ComboBox1.RowSource = "contact!" & Sheets("contact").Range("a2", Sheets("contact").Range("a65536").End(xlUp)).Address

A+

 

[chilo]

Re : incrementer

bonsoir le forum

Bonsoir jnp

j'ai la formule le temps d'affichage de la userform est plus longue merci je sais maintenant que l'on peut faire autrement

merci pour la nouvelle piste de réflexion

Bonsoir JOB75

J'ai essayé votre formule que je retiens car plus rapide compte tenu que les lignes avec le temps serait lourde

merci aussi pour la nouvelle piste de réflexion

je sais que je peux compter sur ce forum