VBA : Importer ligne dans un userform

J

J0K0

Guest

• 5 Avril 2011

• #31

Re : VBA : Importer ligne dans un userform

ouaip ! le soucis est sur les dernières feuilles ...
"emargements_amicale" et "publipostage-actifs"
Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #32

Re : VBA : Importer ligne dans un userform

Re,

as tu testé pas à pas.... et adapter le code en conséquence....

 

Vote positif 0 Vote négatif

J

J0K0

Guest

• 5 Avril 2011

• #33

Re : VBA : Importer ligne dans un userform

eh ben depuis que tu m'en parles j'essaies en effet, mais en lançant l'userform, le pas-à-pas détaillé (c'est F5 chez moi je crois) ne marche pas ....... je vais essayé F8 ... mais je ne peux pas lancer la macro détaillée modifactif ... elle ne se trouve pas dans la liste !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #34

Re : VBA : Importer ligne dans un userform

Re,

pour la feuille "publipostage-actifs" il faut faire ".ListIndex+ 1", pour l'autre devrait fonctionner....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #35

Re : VBA : Importer ligne dans un userform

eh ben depuis que tu m'en parles j'essaies en effet, mais en lançant l'userform, le pas-à-pas détaillé (c'est F5 chez moi je crois) ne marche pas ....... je vais essayé F8 ... mais je ne peux pas lancer la macro détaillée modifactif ... elle ne se trouve pas dans la liste !

Cliquez pour agrandir...

si, tu te met dans la procédure "initialize" de l'usf et F8, ensuite quand tu click sur ton bouton tu es toujours pas à pas et cela t'emmène dans toutes les procédures appelées....

 

Vote positif 0 Vote négatif

J

J0K0

Guest

• 5 Avril 2011

• #36

Re : VBA : Importer ligne dans un userform

pour publipostage-actifs j'ai mis +0, ça marche ....
Est ce que la combobox1 est associée à la colonne A ou B ???? ou ça recherche la ligne ou se trouve la valeur de la combobox1 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #37

Re : VBA : Importer ligne dans un userform

Re,

c'est le 2ème chiffre de la propriété "cells" qui représente le numéro de la colonne, ici le 3 représente la colonne C...

Code:

Cells(.ListIndex + 5, 3).Value = grade

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #38

Re : VBA : Importer ligne dans un userform

J0K0 à dit:

pour publipostage-actifs j'ai mis +0, ça marche ....

Cliquez pour agrandir...

attention, si 1er élément de la combo choisit, retournera 0 et la ligne 0 n'existe pas sur une feuille de calcul, donc erreur....

 

Vote positif 0 Vote négatif

J

J0K0

Guest

• 5 Avril 2011

• #39

Re : VBA : Importer ligne dans un userform

je ne pige plus rien là ... enfin tout a l'air bon, et pourtant ces deux feuille posent problème ... plus de feuilles, plus de problèmes 😀 mais j'ai besoin de ces feuilles ... j'ai vraiment du mal avec ton F8 ... marche pas ! lol pourtant comme toi sur Excel 2003, VB 6.3 ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #40

Re : VBA : Importer ligne dans un userform

Re,

tu as vu le post #34...
sinon tu place le curseur dans l'éditeur vba, dans la procédure initialize de l'usf, barre de menu de l'éditeur vba => débogage => pas à pas détaillé.....

 

Vote positif 0 Vote négatif

J

J0K0

Guest

• 5 Avril 2011

• #41

Re : VBA : Importer ligne dans un userform

Oui, pour publipostage-actifs j'ai mis :

Code:

'modification de la feuille publipostage-actifs
Sheets("publipostage-actifs").Activate
With UserForm3.ComboBox1
    If .ListIndex <> -1 Then
        Cells(.ListIndex + 1, 2).Value = grade
        Cells(.ListIndex + 1, 3).Value = datee
        Cells(.ListIndex + 1, 4).Value = adresse
        Cells(.ListIndex + 1, 5).Value = cp
        Cells(.ListIndex + 1, 6).Value = ville
    End If
End With

Elle écrit du coup au mauvais endroit ! (ligne concernée +1)
Pour le pas à pas j'y arrive sur une macro, mais là non, j'laisse tombé 😉

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #42

Re : VBA : Importer ligne dans un userform

Re,

vérifie que les noms soient bien dans le même ordre sur toutes les feuilles, il semblerait que ce ne soit pas le cas sur la dernière feuille... ceci expliquerait cela....

 

Vote positif 0 Vote négatif

J

J0K0

Guest

• 5 Avril 2011

• #43

Re : VBA : Importer ligne dans un userform

justement, c'est ce que je dis : pour la feuille emargement_amicale ce ne sont pas les mm noms ... il y en a 3 de plus donc les informations mis 3 lignes au dessus de ce qu'il faudrait ! pour la feuille publipostage-actifs : en effet il s'agissait de la liste des noms qui n'était pas la mm, donc erreur ! j'ai viré le code car en fait, on n'a pas réellement le bon code je pense : j'aimerais que la combobox1 cherche sa mm valeur dans la colonne B (la liste des noms) puis quand il a trouvé le nom, il extrait les infos de la ligne concernée.
Peut etre il manque à la base dans call modifactif(textbox2.value, ................) la valeur de combobox1.value pour ensuite dans la macro modifactif(grade, datee, telport, .......) ajouter la valeur nom pour mettre à chaque code un genre de if cells(.listindex, 2).value = nom then (tu vois le débutant que je suis ......... ERF !!!)
On n'est pas loin de la victoire ...!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #44

Re : VBA : Importer ligne dans un userform

Re,

fais peut être une recherche sur la méthode "Find", peut être faut il rechercher sur chaque feuille si le nom existe et où il se trouve le cas échéant....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Avril 2011

• #45

Re : VBA : Importer ligne dans un userform

Re,

regarde ceci en espérant que cela puisse t'aider à avancer...

Code:

Dim x As Range
'recherche dans la colonne A de la feuille active
Set x = Columns(1).Find(UserForm1.ComboBox1.Value, , xlValues, xlWhole, , , False)
'si trouvé
If Not x Is Nothing Then
    x.Offset(0, 1).Value = "aaa" ' renvoie dans cellule, décalage de 1 colonne à droite
    x.Offset(0, 2).Value = "bbb" ' renvoie dans cellule, décalage de 2 colonnes à droite
End If

 

Vote positif 0 Vote négatif