Discussion :

[hottis]

Bonjour

je precises sous VBA excel 2007

j'ai une macro à developper via un fichier classique , je dois compter le nombre de caracteres dans une cellule , ( ça c'est bon ) , ensuite si le nbre de caracteres est > 20 , j'affiche le contenu de la cellule via un user form , et je modifie le texte dans le user form pour qu'il soit < ou = à 20 , le resultat du texte modifie doit remplacer le texte original via un bouton "VALIDER "

Mon probleme est que le user form s'affiche tres bien , mais je n'ai aucune valeur dans le textbox 1 et text box2 , et lorsque j''appuie sur "VALIDER", je passes directement à la derniere ligne contenant plus de 20 caracteres!

Merci de votre aide

Hottis

[Bear the french]

Bonjour,

Pour que l'on puisse corriger ton code, il faudrait au minimum nous le montrer.
Peux-tu nous en mettre un extrait ?

Bertrand

[hottis]

Bonsoir voici le fichier

il y a beaucoup d'enregistreur et quelques bidouilles

Merci

Hottis

[Bear the french]

Bon, bon,

Il y a un peu de boulot pour comprendre comment tu articules tout cela (en plus, il y a des renvois à des fichiers Excel présents sur ton disque dur). Donc en conséquence, je vais consacrer mon énergie juste sur le formulaire (Userform en anglais). Cela ne veut pas dire que le reste est parfait - mais si ça fonctionne chez toi, c'est déjà bien.

Au premier chargement du formulaire, il peut y avoir une initialisation de tes données (= les valeurs à l'origine/à l'ouverture).
Tu as effectivement une macro d'initialisation :

Code :

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

1
2
3
4
Private Sub UserForm_InitiaLize()
UserForm.TextBox1.Value = Sheets("source").Cells(I, 7).Value
UserForm.TextBox2.Value = Sheets("source").Cells(I, 9).Value
End Sub

Un truc m'interpelle : I correspond à quoi ? A priori, c'est une variable mais rien ne la définit et ne l'initialise (ce n'est pas non plus une variable globale pour ceux qui se poseraient la question).
Donc je proposerai le correctif suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_InitiaLize()
' je déclare la variable I comme un chiffre entier
Dim I as integer
' j'initialise I en lui affectant la valeur 5
I = 5
' dans ma Textbox1, j'affecte la valeur de la cellule G5 de la feuille "source"
UserForm.TextBox1.Value = Sheets("source").Cells(I, 7).Value
' dans ma Textbox2, j'affecte la valeur de la cellule I5 de la feuille "source"
UserForm.TextBox2.Value = Sheets("source").Cells(I, 9).Value
End Sub

Au passage, plutôt que d'utiliser inutilement une variable, il eut été préférable d'écrire :

Code :

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

1
2
3
4
5
6
Private Sub UserForm_InitiaLize()
' dans ma Textbox1, j'affecte la valeur de la cellule G5 de la feuille "source"
UserForm.TextBox1.Value = Sheets("source").Cells(5, 7).Value
' dans ma Textbox2, j'affecte la valeur de la cellule I5 de la feuille "source"
UserForm.TextBox2.Value = Sheets("source").Cells(5, 9).Value
End Sub

Voilà pour la première partie.

Bertrand

Seconde partie : la macro déclenchée par le bouton "Valider" du formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub CommandButton1_Click()
 
Dim I As Integer
 
For I = 5 To 5000
 
    If Cells(I, 8).Value > 20 Then
 
UserForm.TextBox1.Value = Sheets("Source").Cells(I, 7).Value
UserForm.TextBox2.Value = Sheets("Source").Cells(I, 9).Value
 
'Sheets("source").Cells(I, 7).Select
Sheets("Source").Cells(I, 7).Value = UserForm.TextBox1.Value
 
 
    End If
 
Next I
 
 
 
 
 
'UserForm1.TextBox1.Value = Sheets("Source").Cells(I, 7).Value
'UserForm1.TextBox2.Value = Sheets("Source").Cells(I, 9).Value
'Range("A1").Value = Val(TextBox1.Text)
 
'Value(TextBox1.Text) = Sheets("Source").Cells(I, 7).Value
'Value(TextBox2.Text) = Sheets("Source").Cells(I, 9).Value
 
'Sheets("source").Cells(I, 7).Select
 
'UserForm1.newsearch_value
 
'Sheets("Source").Cells(I, 7).Value = Me.TextBox1
 
    ' Sheets("source").Cells(I, 7).Select
    'Txtnom = Cells(I, 7)
   ' NEWVAL = InputBox("NBRE DE CARACTERES >20" & Cells(I, 9).Value  SAISIR LE NOUVEAU REPERE TOPO")
 
    'Cells(I, 7).Value = NEWVAl
 
'Unload UserForm1
 
End Sub

Là encore, j'avoue être surpris par le coté étrange de ce code. Je ne serai pas dire si c'est un problème de logique ou de compréhension...

Une question avant d'aller plus loin :
Veux tu déclencher le formulaire lorsque Cells(I, 8).Value a une valeur supérieur au chiffre 20 ? (ce qui a l'air d'être la cas dans ton code)
Ou veux tu déclencher le formulaire lorsque Cells(I, 8).Value contient un mot de plus de 20 caractères ? (ce qui a l'air d'être la cas dans ton post)

Bertrand

[hottis]

Bonjour

je part du fichier "capture .jpg"

pour chaque cellule de la colonne G , je vérifie que le nbre de caracteres n'est pas >20 , si c'est le cas le userform1 doit s'afficher ,avec dans le textbox1 "SAISIR LE NOUVEAU CODE DU REPERE TOPO" le contenu de la cellule Gxx et dans le text box2 "NBRE CARACTERES EN TROP" le contenu de la cellule Ixx .

Je modifie le contenu du text box1 , exemple , pour la cellule G6, le texte qui doit apparaitre dans le userform1 doit etre R30-12345647891012131415, je sais qu'il y a 4 caracteres en trop , je le modifie en R30-1234564789101213.

En appuyant sur le commandbutton "VALIDER" , cette nouvelle valeur doit remplacer R30-12345647891012131415.

J'effectue cette operation pour toutes les cellule de la colonne G dont le nbre de caracteres est>20 carateres.

Cordialement

Hottis

[hottis]

Rebonjour

j'avais fait ça qui fonctionnes tres bien , le seul pb c'est qu'il faut retaper tous le texte moins les caracteres en trop , il y a donc un risque de mauvaise saisie sur une longue chaine de caracteres.

C'est pour cela que via un userform , je penses pouvoir supprimer uniquement les caracteres en trop.

Cordialement

Hottis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim I As Integer
 
For I = 5 To 5000
 
    If Cells(I, 8).Value > 20 Then
 
    Sheets("source").Cells(I, 7).Select
 
    NEWVAL = InputBox("NBRE DE CARACTERES >20" & "( " & Cells(I, 9).Value & " )" & "SAISIR LE NOUVEAU REPERE TOPO")
 
    Cells(I, 7).Value = NEWVAL
 
 
    End If
 
Next I