Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme
ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner
que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme
ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner
que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme
ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner
que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et 2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma vie.
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais omis
dans
ma présentation un élément important qui fait que la macro que vous m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic comme
je le vois sur certaines questions du forum mais je ne sais pas faire et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais omis
dans
ma présentation un élément important qui fait que la macro que vous m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic comme
je le vois sur certaines questions du forum mais je ne sais pas faire et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateur
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais omis
dans
ma présentation un élément important qui fait que la macro que vous m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic comme
je le vois sur certaines questions du forum mais je ne sais pas faire et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais omis
dans
ma présentation un élément important qui fait que la macro que vous m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic comme
je le vois sur certaines questions du forum mais je ne sais pas faire et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de news:
EAF2C46B-D372-4635-805A-6D327D8571B2@microsoft.com...
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais omis
dans
ma présentation un élément important qui fait que la macro que vous m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic comme
je le vois sur certaines questions du forum mais je ne sais pas faire et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateur
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais omis
dans
ma présentation un élément important qui fait que la macro que vous m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic comme
je le vois sur certaines questions du forum mais je ne sais pas faire et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que la
macro créant le graphique permette de ne représenter que des valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12 barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateur
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news:
EAF2C46B-D372-4635-805A-6D327D8571B2@microsoft.com...
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateur
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Ton lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Ton lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de news:
FAA718F8-DE86-4BBB-B6CF-12946CF0FF8C@microsoft.com...
Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateur
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news:
EAF2C46B-D372-4635-805A-6D327D8571B2@microsoft.com...
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateur
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Ton lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateurTon lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateur
Ton lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de news:
FAA718F8-DE86-4BBB-B6CF-12946CF0FF8C@microsoft.com...
Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateur
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news:
EAF2C46B-D372-4635-805A-6D327D8571B2@microsoft.com...
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateur
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateurTon lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateurTon lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes
ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à
fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne
parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si
j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est
donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x
premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas
faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message
de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20
lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne
et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite
que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui
me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente
mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé
ma
vie.
J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateur
Ton lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news:
FAA718F8-DE86-4BBB-B6CF-12946CF0FF8C@microsoft.com...
Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateur
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes
ici.
C'est tout.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news:
EAF2C46B-D372-4635-805A-6D327D8571B2@microsoft.com...
Bonjour Tatanka et merci pour votre réponse qui correspond tout à
fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne
parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si
j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est
donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x
premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas
faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateur
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message
de
news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20
lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne
et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite
que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui
me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente
mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé
ma
vie.
J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateurTon lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes
ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à
fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne
parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si
j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est
donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x
premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas
faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message
de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20
lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne
et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite
que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui
me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente
mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé
ma
vie.
Salut Fredau,
Sélectionne une feuille dans laquelle tu veux copier
ton tableau de la Feuil1 et lance cette macro.
Est-ce le résultat que tu attendais ?
Sub Graphe()
Application.ScreenUpdating = False
Dim ici As Range
Dim tableau As Range
Dim NL As Integer
Dim nom As String
Worksheets("Feuil1").Range("B11:C30").Copy
ActiveSheet.[b11].Select
ActiveSheet.Paste Link:=True
Set tableau = Selection
NL = tableau.Rows.Count
nom = ActiveSheet.Name
NZ = Application.CountIf(tableau.Columns(1), "=0")
NL = tableau.Rows.Count
Set valeurs = tableau.Resize(NL - NZ)
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=valeurs
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de news:J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateurTon lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Salut Fredau,
Sélectionne une feuille dans laquelle tu veux copier
ton tableau de la Feuil1 et lance cette macro.
Est-ce le résultat que tu attendais ?
Sub Graphe()
Application.ScreenUpdating = False
Dim ici As Range
Dim tableau As Range
Dim NL As Integer
Dim nom As String
Worksheets("Feuil1").Range("B11:C30").Copy
ActiveSheet.[b11].Select
ActiveSheet.Paste Link:=True
Set tableau = Selection
NL = tableau.Rows.Count
nom = ActiveSheet.Name
NZ = Application.CountIf(tableau.Columns(1), "=0")
NL = tableau.Rows.Count
Set valeurs = tableau.Resize(NL - NZ)
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=valeurs
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de news: 592D20F3-9870-409D-9AE7-258A9B3A3AD3@microsoft.com...
J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateur
Ton lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de news:
FAA718F8-DE86-4BBB-B6CF-12946CF0FF8C@microsoft.com...
Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateur
Bonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news:
EAF2C46B-D372-4635-805A-6D327D8571B2@microsoft.com...
Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateur
Salut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" <fredau@discussions.microsoft.com> a écrit dans le message de
news: FD69F799-A452-4D8D-8EB2-1290DE4102DB@microsoft.com...
Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.
Salut Fredau,
Sélectionne une feuille dans laquelle tu veux copier
ton tableau de la Feuil1 et lance cette macro.
Est-ce le résultat que tu attendais ?
Sub Graphe()
Application.ScreenUpdating = False
Dim ici As Range
Dim tableau As Range
Dim NL As Integer
Dim nom As String
Worksheets("Feuil1").Range("B11:C30").Copy
ActiveSheet.[b11].Select
ActiveSheet.Paste Link:=True
Set tableau = Selection
NL = tableau.Rows.Count
nom = ActiveSheet.Name
NZ = Application.CountIf(tableau.Columns(1), "=0")
NL = tableau.Rows.Count
Set valeurs = tableau.Resize(NL - NZ)
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=valeurs
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de news:J'espère que celui-là fonctionne
Merci
http://cjoint.com/?lpojSIokZ4
--
Programmeur VBA amateurTon lien ne fonctionne pas, réesssaie d'en faire un autre.
Daniel
"fredau" a écrit dans le message de news:Bonjour Daniel.C et merci pour votre aide que je met tout de suite en
application en joignant le fichier que je viens de créer pour illustrer
mon
Pb (Mon applic réelle serait trop lourde à envoyer) :
http://cjoint.com/?lpl6ZRTips
--
Programmeur VBA amateurBonjour.
Pour mettre un classeur à disposition du forum, suis la procédure
suivante :
Tu te connectes sur le site www.cjoint.com
Tu cliques sur "Parcourir" et tu sélectionnes ton fichier.
Clique sur le bouton "Créer le lien Cjoint.
Le site va t'afficher l'adresse générée.Tu la copies et tu la postes ici.
C'est tout.
Daniel
"fredau" a écrit dans le message de
news:Bonjour Tatanka et merci pour votre réponse qui correspond tout à fait
à
ce
que j'avais exprimé dans mon message, mais (il y a un mais) j'avais
omis
dans
ma présentation un élément important qui fait que la macro que vous
m'avez
envoyé ne fonctionne pas avec mon tableau (Elle fonctionne parfaitement
avec
un tableau que l'on sélectionne) :
Ce tableau est en fait le résultat d'un copiage avec liaison d'un
premier
tableau se situant dans une autre feuille ce qui entraîne que si j'ai
par
exemple 5 valeurs, les 15 suivantes de mon tableau ont en fait la
valeur 0
car dans le 1er tableau ces cellules sont vides; cela fait que le
résultat
de
votre macro me donne un graphique avec aucune valeur. Mon Pb est donc
de
ne
sélectionner que les valeurs différentes de 0 (Pour Daniel C que je
remercie,
mes valeurs sont toujours contigües; ce sera toujours les x premières
lignes
du tableau).
Pour être plus clair, il faudrait que je joigne mon exemple d'applic
comme
je le vois sur certaines questions du forum mais je ne sais pas faire
et
n'ai
pas trouvé la solution dans l'aide, pouvez-vous aussi me renseigner
la-dessus.
Je suis un peu gêné de demander autant d'aide, je pense que les
passionnés
hyper compétents que vous êtes me le pardonneront.
Bonne journée et encore merci.
--
Programmeur VBA amateurSalut Fredau,
En attendant quelque chose de plus simple,
sélectionne deux colonnes adjacentes
contenant des données et lance cette macro :
Sub Graphe()
Application.ScreenUpdating = False
Dim p() As Range, ici As Range
Dim tableau As Range
Dim NL As Integer, i As Integer
Dim j As Integer, k As Integer
Dim nom As String
Set tableau = Selection
NL = tableau.Rows.Count
ReDim p(1 To NL)
For i = 1 To NL
If Not IsEmpty(tableau(i, 1)) Then
j = j + 1
Set p(j) = tableau(i, 1).Resize(1, 2)
End If
Next i
Set ici = p(1)
For k = 2 To j
Set ici = Union(ici, p(k))
Next k
nom = ActiveSheet.Name
With Charts.Add
.ChartType = xlColumnClustered
.SetSourceData Source:=ici
.Location Where:=xlLocationAsObject, Name:=nom
End With
Application.ScreenUpdating = True
End Sub
Serge
"fredau" a écrit dans le message de
news:Bonjour,
Pour déboucher sur un graphique, j'ai un petit tableau de 20 lignes
et
2
colonnes avec les valeurs d'abcisses (Texte) dans la 1ère colonne et
des
valeurs numériques en ordonnées.
Mon tableau comporte rarement 20 valeurs d'abcisses. Je souhaite que
la
macro créant le graphique permette de ne représenter que des
valeurs
d'abcisses existantes (S'il n'y a que 5 valeurs, le graphe en
histogramme ne
doit comporter que 5 barres, s'il y en a 12 le graphique a 12
barres).
Mon nombre de valeurs est déjà recueilli dans une cellule, ce qui me
permettrait de faire une boucle FOR dans ma macro afin de ne
sélectionner que
les cellules contenant des valeurs.
Merci d'avance pour la réponse, qui doit sûrement être évidente mais
en
recherchant "extension sélection" sur le site je n'ai pas trouvé ma
vie.