Discussion :

[cindy6311]

Bonjour

Tout d'abord merci à tous ceux qui prendront un peu de temps pour lire mon problème et m'aider.
Je vous explique :
Sous Excel, j'ai deux feuilles, la première dans laquelle se trouve un tableau avec en colonne des indicateurs et en ligne des villes. Lorsque ma ville a un indicateur, je mets une croix. Je voudrais faire, sur une autre feuille, reprendre les détails d'une ville mais il faut que ca reste variable. Donc si je change ou j'ajoute un indicateur, il faut que les modifs se fassent sur mon autre feuille. Il est important de signaler que mes indicateur sont en colonne et que je les veux en ligne sur la feuille de ma ville.

Voici le bout de code que j'ai commencé à faire mais il y a de nombreux problèmes il me semble :

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
Sub Axat()
 
Dim cel_deb As String
cel_deb = cell("c5")
 
Dim cel_fin As String
cel_fin = cell("y5")
 
Dim i As String
 
For i = cel_deb To cel_fin
    If i.Value = "x" Then
        'Je cherche à rendre variable les colonnes, si l'indicateur est coché, je 'copie/colle le nom de cette instruction sur la feuille qui appartient à la ville
        Sheets("Fonctionnement").Range("K3,W3,Y3").Select
        Sheets("Fonctionnement").Range("Y3").Activate
        Selection.Copy
        Sheets("Axat").Select
        Range("B6").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
    End If
Next i
 
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Merci beaucoup pour votre aide.

Bonne journée

[diude54]

Voici ce que je ferai
Si tu nomme la feuille de la ville avec son nom tu peux faire:

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
 
sub Axat()
dim i as integer,j as integer
dim feuille as sheets
dim nom as string
 
i=2 'on supose que l'en tête est en ligne 1
do until cells(i,1).value="" 'on va jusqu'au bout du tableau en considérant que la 1ère colonne est le nom de la ville
 
nom=cells(i,1).value
set feuillle=sheets(nom)
 
j=2  'on va boucler sur les colonnes
do until j=5 'dernière colonne
if cells(i,j).value="X" then feuille.cells(n° ligne, n° colonne).value="X" 
'pour le numero de ligne je trouverai une corespondance entre j et le numero
de ligne de destination
'par exemple si tu mets j en n° de ligne tu passe des colonnes en ligne(je crois que c'est ce que tu veux faire)
j=j+1
loop
i=i+1
loop
end sub

tu met ça dans un module et pour que ça se mette à jour tout seul tu met dans le code de la feuille:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_change(ByVal target As Range)
If 2 < target.Column < 5 Then 'les colonne contenant les indicateurs
Select Case target.Row
Case 2,3,4,5,6,7,8,9,10,11,12,13,14 '... les lignes ou il y a des infos sur les villes
Call Axat End Select
End If
end sub

[cindy6311]

Voici les quelques modifications que j'ai faites pour que je ne me perde pas trop.
Mais il y a des petites choses que je ne comprend pas vraiment. Alors peut être que je n'ai pas été suffisamment clair dans mes explications.

Je navigue entre deux feuilles : "Fonctionnement" où il y a mon tableau avec toutes mes données et la feuille "Axat" qui reprend les données seulement pour Axat.

Ensuite, je n'ai pas trop compris cette histoire de remplacement de ligne par colonne... Il ne me faut pas les changer. dans mon tableau initial, les indicateurs sont en colonne et je les veux en ligne. Donc oui d'une certaine manière je veux les inverser mais je ne comprend pas pourquoi tu mets ="x" alors que ca je ne le veux pas mais juste le nom de mon indicateur.

Est ce que tu m'as bien comprise ?
je me doute que ce ne doit pas être évident...

Je te remercie beaucoup

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
 
Sub Axat()
 
Dim i As Integer, j As Integer
Dim feuille As Sheets
Dim nom As String
 
i = 4
'l'entête est en ligne 3
Do Until Cells(i, 1).Value = ""
'on va jusqu'au bout du tableau en considérant que la 1ère colonne est le nom de la ville
 
nom = Cells(i, 1).Value
Set feuillle = Sheets(nom)
 
j = 2
'on va boucler sur les colonnes
Do Until j = 23
    'dernière colonne
    If Cells(i, j).Value = "x" Then feuille.Cells(j, i).Value = "X"
    'pour le numero de ligne je trouverai une corespondance entre j et le numero
    'de ligne de destination
    'par exemple si tu mets j en n° de ligne tu passe des colonnes en ligne(je crois que c'est ce que tu veux faire)
    j = j + 1
    Loop
    i = i + 1
Loop
End Sub

je l'ai donc testé et j'ai un problème à cette ligne :
If Cells(i, j).Value = "x" Then feuille.Cells(j, i).Value = "X"
et le débogeur me dit qu'il y a une erreur de compilation à .Cells

Merci de ton aide

[diude54]

Pour mettre en code tu selectionne la partie qui est du code est tu clic sur le dièse (#)

Si tu ne veux pas récupérer la croix mais juste le nom de l'indicateur coché
Pour l'erreur je pense que cela venait de la déclaration dim feuille as sheets
ya pas de s certainement

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
Sub Axat()
 
Dim i As Integer, j As Integer
Dim feuille As Sheet
Dim nom As String
 
i = 4
'l'entête est en ligne 3
Do Until Cells(i, 1).Value = ""
'on va jusqu'au bout du tableau en considérant que la 1ère colonne est le nom de la ville
 
nom = Cells(i, 1).Value
 
Set feuillle = Sheets(nom)
 
j = 2
'on va boucler sur les colonnes
Do Until j = 23
'dernière colonne
if cells(i,j).value="x" then feuille.cells(n° ligne, n° colonne).value=cells(3,j).value 'au lieu de X tu auras l'en t^te de la colonne
 
j = j + 1
Loop
i = i + 1
Loop
End Sub

Si tu ne veux rappatrier que les infos pour la ville axat tu peux faire.

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
Sub axat()
dim plage as range
dim trouve as range
dim nligne as integer
 
set plage=range("A3","A1000") 'tu recherche axat dans la colonne des villes
set trouve=plage.find("Axat",plage.cells(1), xlValues, xlWhole, xlByColumns, xlNext)
i=trouve.row
 
j = 2
'on va boucler sur les colonnes
Do Until j = 23
'dernière colonne
if cells(i,j).value="x" then sheets("Axat").cells(n° ligne, n° colonne).value=cells(3,j).value 'au lieu de X tu auras l'en t^te de la colonne
 
j = j + 1
Loop
 
end sub

[cindy6311]

Je viens d'essayer de trafiquer un peu mais toujours pas de résultats...
Je souhaite juste rapatrier le nom des indicateurs qui sont les entêtes des colonnes.

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
 
Sub Axat()
Dim plage As Range
Dim trouve As Range
Dim nligne As Integer
Dim i As Integer
 
 
Set plage = Range("A4", "A47") 'recherche axat dans la colonne des villes
Set trouve = plage.Find("Axat", plage.Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
i = trouve.Row
 
j = 2
'on va boucler sur les colonnes
Do Until j = 23
'dernière colonne
If Cells(i, j).Value = "x" Then Sheets("Axat").Cells(7, 2).Value = Cells(3, j).Value
'au lieu de X tu auras l'en tête de la colonne
 j = j + 1
Loop
 
End Sub

Je crois que c'est presque ca mais lorsque je lance le programme, le débogeur me dit "variable objet ou variable de bloc With non définie" et voici la ligne : i = trouve.Row

i n'avait pas été défini donc je l'ai fait, et c'est bien un integer qu'il renvoit ??? Je pense que l'erreur doit venir de la.

Merci

[diude54]

Si ça plante à cet endroit c'est qu'il ne trouve pas le nom de la ville il faut que dans la colonne A figure dans une des cases ou tu fais la recherche exactement Axat,
j'ai tester ce code et il marche pour moi:

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
Sub Axat()
Dim plage As Range
Dim trouve As Range
Dim nligne As Integer
Dim i As Integer
 
 
Set plage = Range("A4", "A47") 'recherche axat dans la colonne des villes
Set trouve = plage.Find("Axat", plage.Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
If trouve Is Nothing Then
MsgBox ("Il n'y a pas de ville appelée Axat dans le tableau")
GoTo fin
Else: i = trouve.Row
End If
 
j = 2
a = 3 'premiere ligne ou tu veux ecrire le nom de l'indicateur
'on va boucler sur les colonnes
Do Until j = 23
'dernière colonne
 
If Cells(i, j).Value = "X" Then
Sheets("Axat").Cells(a, 2).Value = Cells(3, j).Value
a = a + 1
End If
'au lieu de X tu auras l'en tête de la colonne
 j = j + 1
Loop
fin:
End Sub

[cindy6311]

Je ne comprend plus rien...
Il fonctionne pour toi, ne beuge plus pour moi mais rien ne s'affiche nul part alors que je dois avoir des données normalement...

Je pense qu'il y a des soucis au niveau des feuilles. C'est-à-dire que tout ne me semble pas clair dans le programme.
La feuille où j'ai mon tableau (je te met un extrait du tableau en pièce jointe) s'appelle fonctionnement.

et je souhaite que la où il y a des croix, je retrouve le noms de mon indicateur dans une feuille qui porte le nom de la ville.

Je te remercie beaucoup pour le coup de main... je galère pas mal dessus et j'ai une cinquante de ville à faire, donc non seulement à la main c'est long mais en plus il risque d'y avoir des modifs donc toujours tout reprendre n'est pas super.

Voici le programme à nouveau puisque j'ai fait une ou deux modif.

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
Sub Axat()
Dim plage As Range
Dim trouve As Range
Dim nligne As Integer
Dim i As Integer
 
 
Set plage = Sheets("Fonctionnement").Range("A4", "A47") 'recherche axat dans la colonne des villes
Set trouve = plage.Find("Axat", plage.Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
If trouve Is Nothing Then
MsgBox ("Il n'y a pas de ville appelée Axat dans le tableau")
GoTo fin
Else: i = trouve.Row
End If
 
j = 2
a = 7 'premiere ligne ou tu veux ecrire le nom de l'indicateur
'on va boucler sur les colonnes
Do Until j = 23
'dernière colonne
 
If Cells(i, j).Value = "X" Then
Sheets("Axat").Cells(a, 2).Value = Cells(3, j).Value
MsgBox (Cells(3, j).Value)
a = a + 1
End If
'au lieu de X tu auras l'en tête de la colonne
 j = j + 1
Loop
fin:
End Sub

[diude54]

Pour que ma macro fonctionne il faut que tu la lance a partir de ta feuille fonctionnement
sinon il faut ajouter partout sheets("Fonctionnement").cells...

Bon sinon tu veux donc bien faire cette manip pour les 50 villes de ton tableau et tu as bien 50 feuilles dans ton classeur, chacune portant le nom de la ville. Si oui voila une macro qui va parcourir tout le tableau de la feuille fonctionnement et envoyer les infos vers les différentes feuilles.
Il faut bien que la feuille porte comme nom exactement ce qui figure dans le tableau de la feuille fonctionnement

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
Sub Axat()
Dim plage As Range
Dim trouve As Range
Dim nligne As Integer
Dim i As Integer
Dim feuille As Worksheet
Dim nom As String
 
On Error GoTo suite
 
i = 4
Do Until Cells(i, 1).Value = ""
nom = Cells(i, 1).Value
Set feuille = Sheets(nom)
 
j = 2
a = 7 'premiere ligne ou tu veux ecrire le nom de l'indicateur
'on va boucler sur les colonnes
Do Until j = 23
'dernière colonne
 
If Cells(i, j).Value = "X" Then
feuille.Cells(a, 2).Value = Cells(3, j).Value
'MsgBox (Cells(3, j).Value)
a = a + 1
End If
'au lieu de X tu auras l'en tête de la colonne
 j = j + 1
Loop
suite:
i = i + 1
Loop
 
fin:
End Sub

[aalex_38]

Personne n'a vu le problème de syntaxe ?

feuillle

Mettre en début de module pour éviter ce genre de chose :

Code :

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

OPTION EXPLICIT

Pour s'y retrouver entre les feuilles il faut mieux parfois instancier toutes les feuilles :

Code :

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

1
2
3
4
5
6
7
8
9
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F2 = Worksheets("Fonctionnement")
Set F1 = Worksheets("Axat")
 
With F2
.Range("A4", "A47") '....
' ....
End with

[cindy6311]

Effectivement, le "option explicit" avait été oublié

J'ai rajouté quelques petits trucs (des déclarations de variables) mais le programme ne marche toujours pas.
J'ai essayé en le mettant sur la feuille où il y a mon tableau, sur celle d'une ville, sur un module... rien n'y fait il a décidé de ne pas fonctionner :-( :-(

Je suis avec Excel 2007, est ce que ca pourrait venir de ca ?
Ca me semble un peu bizarre mais je sais qu'il y a des choses qui ne sont pas compatibles du 2003 au 2007 mais avec Access alors je me dis que c'est aussi possible avec Excel...

Je vous remet mon code. Je vous remercie vraiment beaucoup pour l'aide.

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
 
Option Explicit
 
Sub Axat()
Dim plage As Range
Dim trouve As Range
Dim nligne As Integer
Dim i As Integer
Dim feuille As Worksheet
Dim nom As String
Dim j As Integer
Dim a As Integer
 
 
On Error GoTo suite
 
i = 4
Do Until Cells(i, 1).Value = ""
nom = Cells(i, 1).Value
Set feuille = Sheets(nom)
 
j = 2
a = 7 'premiere ligne ou tu veux ecrire le nom de l'indicateur
'on va boucler sur les colonnes
Do Until j = 23
'dernière colonne
 
If Cells(i, j).Value = "X" Then
feuille.Cells(a, 2).Value = Cells(3, j).Value
MsgBox (Cells(3, j).Value)
a = a + 1
End If
'au lieu de X tu auras l'en tête de la colonne
 j = j + 1
Loop
suite:
i = i + 1
Loop
 
fin:
End Sub

Pour ce qui est de tout instancier, certes ca peut etre bien mais j'ai quand même 43 noms de villes donc ca me semble un peu long mais je crois que je vais quand meme essayer.
Ca m'énerve beaucoup ce problème, je suis sure que c'est une petite bricole en plus...

Et pour te répondre diude54, dans mon fichier, j'ai bien une feuille fonctionnement avec le tableau et une feuille par nom de ville, plus un autre qui n'intervient en rien pour le soucis que j'ai. J'ai bien vérifié le nom de mes feuilles, elles ont toutes le même nom que dans le tableau, orthographiées de la même facon (j'ai aussi fait attention à la casse). Mais le programme ne marche pour aucune ville donc je t'avoue que je commence à en plus rien comprendre....

[diude54]

Je viens de faire le test en copiant le code de ton dernier post dans un module.
Ensuite je me place sur une feuille ou j'ai reproduit ton tableau:
colonne A: centre en ligne 3 et ensuite les villes
Colonnes b à g (je ne suis pas allé plus loin, les colonnes suivantes sont vides)
les critères.
J'ai saisi X au hasard dans les cases.
Ensuite je vais dans outils=>macro=>macro et je lance axat et ça fonctionne.
Petite question comment a tu fait tes croix dans ton tableau.
As tu saisi X majuscule, minuscule ou bien coché ta case.
Dans mon code je suis parti du principe que tu avais mis X majuscule.

autre question, est ce que tes feuilles avec les noms de villes sont protégées?
Si oui fait
feuille.unprotect
et feuille.protect à la fin

Pour ce qui est de tout instancier je pense que ce n'est pas la peine.
courage

je te met le classeur en question

[cindy6311]

C'est pas possible... un monstre est dans mon ordi ou quoi ???
j'avais mis des petits "x" mais ce n'est pas le problème puisque je les changeais à chaque fois...

mes feuilles ne sont pas protégées enfin je n'ai rien fait pour, j'ai ouvert un fichier excel où j'ai rentré mes données et voila.

Je ne sais vraiment pas comment tu fais pour le faire fonctionner mais félictation... je voulais t'envoyer mon fichier mais à chaque fois, j'ai un echec d'upload...

merci

[cindy6311]

Bon trés bonne nouvelle
CA MARCHE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Phénomène assez incroyable...
Je ne fais que supprimer les autres macros que j'avais mises et renommées à chaque fois, aucune ne portait le même nom et je lancais bien la bonne... j'ai refait la manip plusieurs fois au cas ou...

Mais bon, le principal est que cela fonctionne...
je te remercie vraiment beaucoup de ton aide... c'est un grand pas pour moi

bonne journée et encore merci, merci beaucoup

[cindy6311]

Ahhh
j'ai peut etre crier victoire trop vite...
les deux dernières colonnes ne sont pas prises en compte. J'ai modifié le nombre j, il était à 23 et ne prenait en compte que les 23 premières colonnes (la colonne des ville étant comprise) je l'ai donc augmenté de 2...

j'ai relancé ma macro mais voila, elles ne sont toujours pas prise en compte...
as tu une idée ?

[cindy6311]

cette fois ci plus de problème, cela fonctionne bien...
il m'a fallu enregistrer et fermer plusieurs fois et maintenant tout est rentré dans l'ordre...
merci beaucoup...