Discussion :

[beebe]

bonjour tout le monde!

Voilà mon problème:
Le principe de mon fichier : Par un userfom l'utilisateur peut rentrer les caractéristiques primaires d'un nouveau projet, qui se range tout seul dans un tableau récapitulatif, selon certains critères. des caractéristiques secondaires (nom, adresse, téléphone...) doivent être ajoutées à celles entrée manuellement selon ces critères
ainsi je défini deux variables String :
"Département" et "Organisme"

Mon problème c'est que la liste des éléments pouvant être "organisme" est ouverte.C'est à dire que pour la mise en service de mon fichier, il y a un certain nombre d'organismes, mais l'utilisateur peut en rentrer d'autres (par un second Userform, qui ne pose pas de problèmes...).

Voici mon code:

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
With Sheets("Liste des organismes")
        If Organisme = "DIR SO" Then
        .Range("D69 : H69").Copy
        Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
            Application.CutCopyMode = False
        End If
 
 
        If Organisme = "Conseil Général" Then
        For i = 7 To 34
            If .Range("C" & i).Value = Département Then
                .Range("D" & i & ":H" & i).Copy
                Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
                Application.CutCopyMode = False
            End If
        Next i
        End If
 
 
        For n = 76 To 200
            If .Range("C" & n).Value = Sheets("champs pour listes").Range("A1").Value Then
                .Range("D" & n & ":H" & n).Copy
                Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
                Application.CutCopyMode = False
            End If
        Next n
 
End With

Les deux premiers if fonctionnent car ils font appel à un élément ou un élément d'une liste finie.
Pour le troisième, dans le code

Code :

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

Sheets("champs pour listes").Range("A1").Value

j'essaie de faire appel à un élément rentré par le userform, il est affiché dans la cellule A1 onglet "champs pour listes"...

si quelqu'un peut me dire ce qu'il ne va pas ou une autre façon de procédé...Merci

[alsimbad]

tu devrais utiliser select case

Code :

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

1
2
3
4
5
6
7
8
9
 
select case organisme
 case "conseil général"
   ton code ici
case "dir so"
  ton code ici
case else
  ton code ici
end select

de cette façon, tu prens en compte toutes les possibilités

[beebe]

OK je vais essayer ça...
merci

[beebe]

ça sera plus propre si j'utilise select case, mais je pense que ça ne me change pas mon problème : je peux prendre toutes les possibilités pas une possibilité qui n'est pas encore rentrée? je me trompe?

en gros il me faudrait quelque chose qui soit l'équivalent de :

"Variable" = . Range("A1").value, qui apparemment ne marche pas...

[JackOuYA]

....

"Variable" = . Range("A1").value, qui apparemment ne marche pas...

je ne comprends pas bien ce que tu ve dire si c'est par exemple récupérer le contenue d'une cellule dans une variable string tu peu faire :

Code :

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

1
2
3
 
Dim stYa as string
stYA = Thisworkbook.sheets("Feuil1").range("A1").value

si tu ne précise pas le classeur le .range concerne le classeur actif et pour ne pas répeter le nom de la feuille par exemple tu peu utiliser l'instruction with :

Code :

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

1
2
3
4
5
6
7
8
 
Dim stYA as string 
with sheets("feuil1")
  'Pour toutes les variables entre with et en with qui commence par un .  
  ' VB prend en compte le prefixe sheets("feuil1")
   stYA = .range("A1").value
 
end with

[beebe]

voilà les lignes de codes qui me posent problème...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("champs pour listes").Range("A1").Value = Me.ComboBox2.Value
Organisme = Sheets("champs pour listes").Range("A1").Value
 
With Sheets("Liste des organismes")
 
For n = 76 To 200
            If .Range("C" & n).Value = Organisme Then
                .Range("D" & n & ":H" & n).Copy
                Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
                Application.CutCopyMode = False
            End If
        Next n
 
End With

la boucle permet une recherche sur une colonne qui pourra recevoir d'autres lignes par la suite...

cf.fichier.

quelques explications : dans l'onglet "accueil" on peut ajouter un projet qui se retrouvera dans le tableau de l'onglet "Récapitulatif". Le cas qui ne fonctionne pas, c'est pour un maitre d'ouvrage qui est dans le 3e tableau de l'onglet" liste des organismes". ce dernier peut recevoir de nouveaux éléments par un deuxième userform ("Accueil"->"ajouter un client")....

[JackOuYA]

Code :

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

n = 76 To 200

si le nombre de ligne et variable, est tu sur que ton "200" est toujours suffisant.?

[beebe]

a priori oui...

[alsimbad]

la définition de la variable organisme me semble floue. dans ton premier post tu dis
if organisme = "conseil general" ou "dir so"
dans ton dernier post, c'est la valeur de la cellule A1.
tu utilise un combobox pour le choix de l'utilisateur, pourquoi ne pas prendre directement la valeur du combo comme variable

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
With Sheets("Liste des organismes")
Organisme= Me.ComboBox2.Value
select case organisme
case "conseil général"
       For i = 7 To 34
            If .Range("C" & i).Value = Département Then
                .Range("D" & i & ":H" & i).Copy
                Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
            End If
case "dir so"
       .Range("D69 : H69").Copy
        Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
            Application.CutCopyMode = False
        End If
case else' (en ce cas else est néamoins une valeur de la combo, donc pas de risque d'erreur
For n = 76 To .Range("A65535").End(xlUp).row
            If .Range("C" & n).Value = Organisme Then
                .Range("D" & n & ":H" & n).Copy
Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
            End If
        Next n
end select 
End With

[beebe]

je ne sais pas pourquoi mais ton code ne marche pas, il y a un problème...

[alsimbad]

oui....mais encore ?
si le code a un probleme, dis moi où, a quel momment, ou envoit le fichier ou tu l'a intégrer, la macro complete, je ne sais pas mais un element concret pour travailler.

[beebe]

Mon fichier est accessible juste plus haut...

pour te rendre compte de ce qui ne va pas tu peux faire comme ça...

onglet "accueil" bouton "ajouter un projet"

dans le userform rempli dans l'ordre

"projet"
"localisation"
"Gironde"
"Conseil Général"
"Conseil général"

la ligne se créée bien dans l'onglet "récapitulatif"

Maintenant essaies avec :

"projet"
"localisation"
"Corrèze"
"Mairie de Saint Pantaleon de Larche"
"Autre"

On ne récupère que les données du userform...

je te remets le fichier

[alsimbad]

désolé, je ne peux pas ouvrir les .rar. tu peux le mettre en zip ?

[beebe]

ok le voici en ZIP