recuperer les données d'une ligne sous une forme personalisée co nd
12 réponses
Matt 45
BOnjour à tous , je cherche à recuperer les données d'une ligne sous une
forme personalisée conditionnée...
cad que dans cette ligne, je dois recuperer tout ce qui contient une valeur
sous la forme "valeur, valeur, ..." et éliminer du résultat tout ce qui ne
contient rien...
j'espere que vous pouvez comprendre ma demande ...merci à vous tous!!!!
Re... Bien que je ne comprenne pas la logique..... Fichier modifier ici: http://cjoint.com/?iyuJDhhY0a '----code------ Sub jj() Application.ScreenUpdating = False [Be2: be11].ClearContents Dim x As String For i = 3 To 11 For j = 2 To 54 If Cells(i, j) <> "" Then x = x & Cells(i, j) & "," Next If x <> "" Then Range("be" & i) = Left(x, Len(x) - 1) x = "" Next End Sub '----------- Salutations JJ
"Matt 45" a écrit dans le message de news:
http://cjoint.com/?iytrqAB2yt et .... ca cartonne!
Re....
En fait les cellules contiennent le résulta d'une formule "si" Comme cela alors:
'----- Sub jj() For Each c In [a1:iv1] '***A adapter** If c <> "" Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '---------
Autre question, est il possible d'aligner la formule sur une série de lignes?
Je suppose une série de lignes.....ou ligne par ligne Il faudra savoir: * sur quelle colonne * l'adresse de la plage à traiter * un exemple serait bienvenue sur http://cjoint.com JJ
"Matt 45" a écrit dans le message de news:
En fait les cellules contiennent le résulta d'une formule "si" et qui donne
pour résultat "" qui apparait comme vide, ce qui fait que les virgules apparaissent aussi???
Autre question, est il possible d'aligner la formule sur une série de lignes?
En tous cas merci beaucoup, j'y connais rien en visual basic, (a vrai dire
je savais pas à quoi ca servait...!) et là je découvre, c'est super sympa
de
prendrfe du temps pour aider un noob comme moi!!!
Re...
cxa marche mais ca renvoie ausis les cellules vides. Etonnant, les cellules sont-elles vraiment vides ??
ce serait possible de mettre le resultat dans une cellule? Dans l'exemple le résultat dans la cellule A2 (A adapter)
'--------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '--------- JJ
"Matt 45" a écrit dans le message de
news:
Merci jacky... cxa marche mais ca renvoie ausis les cellules vides. ce serait possible de mettre le resultat dans une cellule?
A+
Bonsoir,
Ceci peut être... Avec la ligne 1 '-------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next x = Left(x, Len(x) - 1) MsgBox x End Sub '-------- Salutations JJ
"Matt 45" <Matt a écrit dans le message de
news:
BOnjour à tous , je cherche à recuperer les données d'une ligne
sous
une
forme personalisée conditionnée... cad que dans cette ligne, je dois recuperer tout ce qui contient
une
valeur
sous la forme "valeur, valeur, ..." et éliminer du résultat tout
ce
qui ne
contient rien...
j'espere que vous pouvez comprendre ma demande ...merci à vous tous!!!!
Re...
Bien que je ne comprenne pas la logique.....
Fichier modifier ici:
http://cjoint.com/?iyuJDhhY0a
'----code------
Sub jj()
Application.ScreenUpdating = False
[Be2: be11].ClearContents
Dim x As String
For i = 3 To 11
For j = 2 To 54
If Cells(i, j) <> "" Then x = x & Cells(i, j) & ","
Next
If x <> "" Then Range("be" & i) = Left(x, Len(x) - 1)
x = ""
Next
End Sub
'-----------
Salutations
JJ
"Matt 45" <Matt45@discussions.microsoft.com> a écrit dans le message de
news:8139B402-39D9-419F-86A4-0438663A046E@microsoft.com...
http://cjoint.com/?iytrqAB2yt
et .... ca cartonne!
Re....
En fait les cellules contiennent le résulta d'une formule "si"
Comme cela alors:
'-----
Sub jj()
For Each c In [a1:iv1] '***A adapter**
If c <> "" Then x = x & c & ","
Next
[a2] = Left(x, Len(x) - 1)
End Sub
'---------
Autre question, est il possible d'aligner la formule sur une série de
lignes?
Je suppose une série de lignes.....ou ligne par ligne
Il faudra savoir:
* sur quelle colonne
* l'adresse de la plage à traiter
* un exemple serait bienvenue sur
http://cjoint.com
JJ
"Matt 45" <Matt45@discussions.microsoft.com> a écrit dans le message de
news:4C4AD1DF-0A2E-4019-85A3-F7C8BE129673@microsoft.com...
En fait les cellules contiennent le résulta d'une formule "si" et qui
donne
pour résultat "" qui apparait comme vide, ce qui fait que les virgules
apparaissent aussi???
Autre question, est il possible d'aligner la formule sur une série de
lignes?
En tous cas merci beaucoup, j'y connais rien en visual basic, (a vrai
dire
je savais pas à quoi ca servait...!) et là je découvre, c'est super
sympa
de
prendrfe du temps pour aider un noob comme moi!!!
Re...
cxa marche mais ca renvoie ausis les cellules vides.
Etonnant, les cellules sont-elles vraiment vides ??
ce serait possible de mettre le resultat dans une cellule?
Dans l'exemple le résultat dans la cellule A2 (A adapter)
'---------
Sub jj()
For Each c In [a1:iv1] '***A adapter**
If Not IsEmpty(c) Then x = x & c & ","
Next
[a2] = Left(x, Len(x) - 1)
End Sub
'---------
JJ
"Matt 45" <Matt45@discussions.microsoft.com> a écrit dans le message
de
Merci jacky...
cxa marche mais ca renvoie ausis les cellules vides.
ce serait possible de mettre le resultat dans une cellule?
A+
Bonsoir,
Ceci peut être...
Avec la ligne 1
'--------
Sub jj()
For Each c In [a1:iv1] '***A adapter**
If Not IsEmpty(c) Then x = x & c & ","
Next
x = Left(x, Len(x) - 1)
MsgBox x
End Sub
'--------
Salutations
JJ
"Matt 45" <Matt 45@discussions.microsoft.com> a écrit dans le
message de
Re... Bien que je ne comprenne pas la logique..... Fichier modifier ici: http://cjoint.com/?iyuJDhhY0a '----code------ Sub jj() Application.ScreenUpdating = False [Be2: be11].ClearContents Dim x As String For i = 3 To 11 For j = 2 To 54 If Cells(i, j) <> "" Then x = x & Cells(i, j) & "," Next If x <> "" Then Range("be" & i) = Left(x, Len(x) - 1) x = "" Next End Sub '----------- Salutations JJ
"Matt 45" a écrit dans le message de news:
http://cjoint.com/?iytrqAB2yt et .... ca cartonne!
Re....
En fait les cellules contiennent le résulta d'une formule "si" Comme cela alors:
'----- Sub jj() For Each c In [a1:iv1] '***A adapter** If c <> "" Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '---------
Autre question, est il possible d'aligner la formule sur une série de lignes?
Je suppose une série de lignes.....ou ligne par ligne Il faudra savoir: * sur quelle colonne * l'adresse de la plage à traiter * un exemple serait bienvenue sur http://cjoint.com JJ
"Matt 45" a écrit dans le message de news:
En fait les cellules contiennent le résulta d'une formule "si" et qui donne
pour résultat "" qui apparait comme vide, ce qui fait que les virgules apparaissent aussi???
Autre question, est il possible d'aligner la formule sur une série de lignes?
En tous cas merci beaucoup, j'y connais rien en visual basic, (a vrai dire
je savais pas à quoi ca servait...!) et là je découvre, c'est super sympa
de
prendrfe du temps pour aider un noob comme moi!!!
Re...
cxa marche mais ca renvoie ausis les cellules vides. Etonnant, les cellules sont-elles vraiment vides ??
ce serait possible de mettre le resultat dans une cellule? Dans l'exemple le résultat dans la cellule A2 (A adapter)
'--------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '--------- JJ
"Matt 45" a écrit dans le message de
news:
Merci jacky... cxa marche mais ca renvoie ausis les cellules vides. ce serait possible de mettre le resultat dans une cellule?
A+
Bonsoir,
Ceci peut être... Avec la ligne 1 '-------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next x = Left(x, Len(x) - 1) MsgBox x End Sub '-------- Salutations JJ
"Matt 45" <Matt a écrit dans le message de
news:
BOnjour à tous , je cherche à recuperer les données d'une ligne
sous
une
forme personalisée conditionnée... cad que dans cette ligne, je dois recuperer tout ce qui contient
une
valeur
sous la forme "valeur, valeur, ..." et éliminer du résultat tout
ce
qui ne
contient rien...
j'espere que vous pouvez comprendre ma demande ...merci à vous tous!!!!
Matt 45
bon bah la je dois dire c'est du 20/20 !!!! Merci bcp pour ta contribution !!! T'auras une très bonne note sur le newsgroup!
a+
Re... Bien que je ne comprenne pas la logique..... Fichier modifier ici: http://cjoint.com/?iyuJDhhY0a '----code------ Sub jj() Application.ScreenUpdating = False [Be2: be11].ClearContents Dim x As String For i = 3 To 11 For j = 2 To 54 If Cells(i, j) <> "" Then x = x & Cells(i, j) & "," Next If x <> "" Then Range("be" & i) = Left(x, Len(x) - 1) x = "" Next End Sub '----------- Salutations JJ
"Matt 45" a écrit dans le message de news:
http://cjoint.com/?iytrqAB2yt et .... ca cartonne!
Re....
En fait les cellules contiennent le résulta d'une formule "si" Comme cela alors:
'----- Sub jj() For Each c In [a1:iv1] '***A adapter** If c <> "" Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '---------
Autre question, est il possible d'aligner la formule sur une série de lignes?
Je suppose une série de lignes.....ou ligne par ligne Il faudra savoir: * sur quelle colonne * l'adresse de la plage à traiter * un exemple serait bienvenue sur http://cjoint.com JJ
"Matt 45" a écrit dans le message de news:
En fait les cellules contiennent le résulta d'une formule "si" et qui donne
pour résultat "" qui apparait comme vide, ce qui fait que les virgules apparaissent aussi???
Autre question, est il possible d'aligner la formule sur une série de lignes?
En tous cas merci beaucoup, j'y connais rien en visual basic, (a vrai dire
je savais pas à quoi ca servait...!) et là je découvre, c'est super sympa
de
prendrfe du temps pour aider un noob comme moi!!!
Re...
cxa marche mais ca renvoie ausis les cellules vides. Etonnant, les cellules sont-elles vraiment vides ??
ce serait possible de mettre le resultat dans une cellule? Dans l'exemple le résultat dans la cellule A2 (A adapter)
'--------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '--------- JJ
"Matt 45" a écrit dans le message de
news:
Merci jacky... cxa marche mais ca renvoie ausis les cellules vides. ce serait possible de mettre le resultat dans une cellule?
A+
Bonsoir,
Ceci peut être... Avec la ligne 1 '-------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next x = Left(x, Len(x) - 1) MsgBox x End Sub '-------- Salutations JJ
"Matt 45" <Matt a écrit dans le message de
news:
BOnjour à tous , je cherche à recuperer les données d'une ligne
sous
une
forme personalisée conditionnée... cad que dans cette ligne, je dois recuperer tout ce qui contient
une
valeur
sous la forme "valeur, valeur, ..." et éliminer du résultat tout
ce
qui ne
contient rien...
j'espere que vous pouvez comprendre ma demande ...merci à vous tous!!!!
bon bah la je dois dire c'est du 20/20 !!!!
Merci bcp pour ta contribution !!!
T'auras une très bonne note sur le newsgroup!
a+
Re...
Bien que je ne comprenne pas la logique.....
Fichier modifier ici:
http://cjoint.com/?iyuJDhhY0a
'----code------
Sub jj()
Application.ScreenUpdating = False
[Be2: be11].ClearContents
Dim x As String
For i = 3 To 11
For j = 2 To 54
If Cells(i, j) <> "" Then x = x & Cells(i, j) & ","
Next
If x <> "" Then Range("be" & i) = Left(x, Len(x) - 1)
x = ""
Next
End Sub
'-----------
Salutations
JJ
"Matt 45" <Matt45@discussions.microsoft.com> a écrit dans le message de
news:8139B402-39D9-419F-86A4-0438663A046E@microsoft.com...
http://cjoint.com/?iytrqAB2yt
et .... ca cartonne!
Re....
En fait les cellules contiennent le résulta d'une formule "si"
Comme cela alors:
'-----
Sub jj()
For Each c In [a1:iv1] '***A adapter**
If c <> "" Then x = x & c & ","
Next
[a2] = Left(x, Len(x) - 1)
End Sub
'---------
Autre question, est il possible d'aligner la formule sur une série de
lignes?
Je suppose une série de lignes.....ou ligne par ligne
Il faudra savoir:
* sur quelle colonne
* l'adresse de la plage à traiter
* un exemple serait bienvenue sur
http://cjoint.com
JJ
"Matt 45" <Matt45@discussions.microsoft.com> a écrit dans le message de
news:4C4AD1DF-0A2E-4019-85A3-F7C8BE129673@microsoft.com...
En fait les cellules contiennent le résulta d'une formule "si" et qui
donne
pour résultat "" qui apparait comme vide, ce qui fait que les virgules
apparaissent aussi???
Autre question, est il possible d'aligner la formule sur une série de
lignes?
En tous cas merci beaucoup, j'y connais rien en visual basic, (a vrai
dire
je savais pas à quoi ca servait...!) et là je découvre, c'est super
sympa
de
prendrfe du temps pour aider un noob comme moi!!!
Re...
cxa marche mais ca renvoie ausis les cellules vides.
Etonnant, les cellules sont-elles vraiment vides ??
ce serait possible de mettre le resultat dans une cellule?
Dans l'exemple le résultat dans la cellule A2 (A adapter)
'---------
Sub jj()
For Each c In [a1:iv1] '***A adapter**
If Not IsEmpty(c) Then x = x & c & ","
Next
[a2] = Left(x, Len(x) - 1)
End Sub
'---------
JJ
"Matt 45" <Matt45@discussions.microsoft.com> a écrit dans le message
de
Merci jacky...
cxa marche mais ca renvoie ausis les cellules vides.
ce serait possible de mettre le resultat dans une cellule?
A+
Bonsoir,
Ceci peut être...
Avec la ligne 1
'--------
Sub jj()
For Each c In [a1:iv1] '***A adapter**
If Not IsEmpty(c) Then x = x & c & ","
Next
x = Left(x, Len(x) - 1)
MsgBox x
End Sub
'--------
Salutations
JJ
"Matt 45" <Matt 45@discussions.microsoft.com> a écrit dans le
message de
bon bah la je dois dire c'est du 20/20 !!!! Merci bcp pour ta contribution !!! T'auras une très bonne note sur le newsgroup!
a+
Re... Bien que je ne comprenne pas la logique..... Fichier modifier ici: http://cjoint.com/?iyuJDhhY0a '----code------ Sub jj() Application.ScreenUpdating = False [Be2: be11].ClearContents Dim x As String For i = 3 To 11 For j = 2 To 54 If Cells(i, j) <> "" Then x = x & Cells(i, j) & "," Next If x <> "" Then Range("be" & i) = Left(x, Len(x) - 1) x = "" Next End Sub '----------- Salutations JJ
"Matt 45" a écrit dans le message de news:
http://cjoint.com/?iytrqAB2yt et .... ca cartonne!
Re....
En fait les cellules contiennent le résulta d'une formule "si" Comme cela alors:
'----- Sub jj() For Each c In [a1:iv1] '***A adapter** If c <> "" Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '---------
Autre question, est il possible d'aligner la formule sur une série de lignes?
Je suppose une série de lignes.....ou ligne par ligne Il faudra savoir: * sur quelle colonne * l'adresse de la plage à traiter * un exemple serait bienvenue sur http://cjoint.com JJ
"Matt 45" a écrit dans le message de news:
En fait les cellules contiennent le résulta d'une formule "si" et qui donne
pour résultat "" qui apparait comme vide, ce qui fait que les virgules apparaissent aussi???
Autre question, est il possible d'aligner la formule sur une série de lignes?
En tous cas merci beaucoup, j'y connais rien en visual basic, (a vrai dire
je savais pas à quoi ca servait...!) et là je découvre, c'est super sympa
de
prendrfe du temps pour aider un noob comme moi!!!
Re...
cxa marche mais ca renvoie ausis les cellules vides. Etonnant, les cellules sont-elles vraiment vides ??
ce serait possible de mettre le resultat dans une cellule? Dans l'exemple le résultat dans la cellule A2 (A adapter)
'--------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next [a2] = Left(x, Len(x) - 1) End Sub '--------- JJ
"Matt 45" a écrit dans le message de
news:
Merci jacky... cxa marche mais ca renvoie ausis les cellules vides. ce serait possible de mettre le resultat dans une cellule?
A+
Bonsoir,
Ceci peut être... Avec la ligne 1 '-------- Sub jj() For Each c In [a1:iv1] '***A adapter** If Not IsEmpty(c) Then x = x & c & "," Next x = Left(x, Len(x) - 1) MsgBox x End Sub '-------- Salutations JJ
"Matt 45" <Matt a écrit dans le message de
news:
BOnjour à tous , je cherche à recuperer les données d'une ligne
sous
une
forme personalisée conditionnée... cad que dans cette ligne, je dois recuperer tout ce qui contient
une
valeur
sous la forme "valeur, valeur, ..." et éliminer du résultat tout
ce
qui ne
contient rien...
j'espere que vous pouvez comprendre ma demande ...merci à vous tous!!!!
