On click / boucle / ouverture USF / récupérer valeur

[GADENSEB]

Bonjour,
Je dois lancer un userform à de chaque cellule d'une colonne (le nombre de ligne varie)
Par contre, je bloque sur la boucle
les cellules concernées commence en I36

Dim i, j As Integer
For i = 36 To j
j = Range("I36").End(xlDown).Row
If Target.Address(0, 0) = "I&i" Then
'Pour afficher l'userform POSTE
POSTE.Show
End If
Next

Qqn sait où est le soucis dans ma boucle 😕


Petit 2
Comment récupérer la valeur de la cellule cliquée et l'inclure dans l'USF ouvert dans le Textbox "CODE" ?


Merci

Bonne journée

Seb

 

[Paritec]

Re : On click / boucle / ouverture USF / récupérer valeur

bonjour gadenseb le forum
bah oui c'est difficile avec la macro que tu as fait !!!!
si tu fais une boucle de 36 à J il faut définir J avant de déclarer ta boucle et pas après comme tu l'as fait
après
poste.code=cells("I" &i).value
mais tu es dans une macro événementielle?
Enfin bref comme dab pas de fichier alors il faut deviner!!!!!!!!!!!!!!!!!
a+
papou😱

Dim i&, j&
j = Range("I36").End(xlDown).Row
 For i = 36 To j
If Target.Address(0, 0) = "I&i" Then ' tu veux quoi avec ta condition ?????
'Pour afficher l'userform POSTE
poste.code=cells(i,"I" ).value
POSTE.Show
End If
Next

 

[GADENSEB]

Re : On click / boucle / ouverture USF / récupérer valeur

Super le code 😉
.... heu je livre pas de fichier car c'est une énorme base de données pour le taf....
du coup je suis entrain de créer un fichier avec des données bidons ..... promis dans le We il sera fait pour les prochaines fois !!!

Dim i&, j&
j = Range("I36").End(xlDown).Row
For i = 36 To j
If Target.Address(0, 0) = "I&i" Then ' tu veux quoi avec ta condition ?????
'Pour afficher l'userform POSTE
poste.code=cells("I" & i).value
POSTE.Show
End If
Next

Pour la condition ----> La données "CODE" est une valeur unique de la bdd .... pas réellement de condition.
Mais s'il en faut une : la valeur soit numérique ....


Merci encore
Seb

 

[Paritec]

Re : On click / boucle / ouverture USF / récupérer valeur

Re Gadenseb le forum
si je te demande tu veux quoi avec ta condition , c'est que tu dis au dessus que tu veux que l'userform s'ouvre à chaque ligne et en dessous dans la boucle tu lui donnes un if alors if pourquoi voilà?????
a+
Papou😱

Dim i&, j&
j = Range("I36").End(xlDown).Row
For i = 36 To j
poste.code=cells(i,"I").value
POSTE.Show
Next

 

[Paritec]

Re : On click / boucle / ouverture USF / récupérer valeur

Re Gadenseb le forum
ou aussi
a+
Papou😱

Dim i&, j&
j = Range("I36").End(xlDown).Row
For i = 36 To j
if cells("i" &i)<>"" then 
poste.code=cells(i,"I" ).value
POSTE.Show
End If
Next

 

[GADENSEB]

Re : On click / boucle / ouverture USF / récupérer valeur

Heu .... .pas de condition effectivement juste une boucle .....
avec ce code pas besoin de IF

Dim i&, j&
j = Range("I36").End(xlDown).Row
For i = 36 To j
poste.code=cells("I" & i).value
POSTE.Show
Next

par contre il me renvoie une :
erreur d'éxécution 5
argument ou appel de procédure incorrecte
sur POSTE.CODE = Cells("I" & i).Value

Pourtant j'ai bien nommé le textbox "CODE"

Tu vois le pb ?

Merci

Seb

 

[GADENSEB]

Re : On click / boucle / ouverture USF / récupérer valeur

Voici une version de mon fichier avec des données bidon

Le tour est joué

.... dans l'onglet "GESTION"

Seb

 

[Paritec]

Re : On click / boucle / ouverture USF / récupérer valeur

Re Gadenseb le forum
la raison est simple je t'ai donné une bêtise alors cela ne marche pas !!!
rectification
a+
papou😱

Dim i&, j&
    j = Range("I36").End(xlDown).Row
    For i = 36 To j
        POSTE.CODE = Cells(i, "I").Value
        POSTE.Show
    Next

 

[GADENSEB]

Re : On click / boucle / ouverture USF / récupérer valeur

Le code marche nikel

Petite maj

Du coup quand je clique sur la première ligne il me génére l'USF "POSTE"
Ce que je comprend pas :
- si je fais sortir (la croix rouge) il me génère le suivant et ainsi de suite...

Du coup, je me suis peut-être mal exprimé : 😱
moi je voulais qu'il me génère uniquement pour cette ligne là ...
Si je veux le suivant le ferme l'usf et je clique sur la ligne d’après....

Tu vois que je veux dire ?
a+
Seb

 

[GADENSEB]

Re : On click / boucle / ouverture USF / récupérer valeur

.....complement ....

c'est pour ca que je veux utiliser

If Target.Address(0, 0) =

 

[Paritec]

Re : On click / boucle / ouverture USF / récupérer valeur

Re Gadenseb le forum
bah oui quand on explique mal on a pas la bonne réponse !!!!
surtout que ton premier post indique que tu veux ouvrir tous les élément de 36 à j !!!!!!
bref
je regarde je modifie et je renvoie
a+
papou😱

 

[Paritec]

Re : On click / boucle / ouverture USF / récupérer valeur

Re Gadensseb le forum
donc voilà maintenant que tu as expliqué ce que tu voulais, c'est plus simple surtout qu'une boucle ne sert a rien dans ce cas
a+
Papou😱

Dim j&
    j = Range("I36").End(xlDown).Row
    If Target.Row <= j And Target.Row >= 36 Then
        POSTE.CODE = Cells(j, "I").Value
        POSTE.Show
    End If

 

[GADENSEB]

Re : On click / boucle / ouverture USF / récupérer valeur

yess......


par contre cela me renvoie une erreur d'exécution 1004
erreur définie par l’application ou l'objet

Je vois pas où est l'erreur du coup...

Dim j&
    j = Range("I36").End(xlDown).Row
    If Target.Row <= j And Target.Row >= 36 Then
        POSTE.CODE = Cells(j, "I").Value
        POSTE.Show
    End If

 

[Paritec]

Re : On click / boucle / ouverture USF / récupérer valeur

Re gandeseb le forum
avec le fichier là cela ne bug pas, tu n'auras l'userform que si tu cliques sur une ligne égal ou supérieure à 36 et égal ou inférieur à la dernière ligne en colonne I
a+
papou😱

 

[GADENSEB]

Re : On click / boucle / ouverture USF / récupérer valeur

Au poil !!!


Merci beaucoup

Bonne fin d'aprem

Seb