"PST" a écrit dans le message de news: 4755505a$0$25931$ Bonjour et merci
le principe c'est exactem:ent cela, sauf que si je sélectionne en dessous de 34 c'est bon. Mais si je dépasse cette valeur, cela ne sélectionne que jusqu'à trente quatre, alors que je voudrais quelque soit le nombre de valeurs sélectionnées, les N° de lignes correspondantes soient sélectio nnées.
15 valeurs dans tableau = 15 N° lignes sélectionnées. 20 valeurs dans tableau = 20 N° lignes sélectionnées. et..
Bonjour en espérant que cela va aller http://cjoint.com/?mdnoT4733U à+ Poc
"PST" a écrit dans le message de news: 4752dad4$0$25938$ Comme demandé, ci joint exemple en espérant avoir été plus cla ir
http://cjoint.com/?mcrqYBDdXr
Mets ton fichier ici : http://cjoint.com/ Peut-être que j'"arriverai à comprendre ce que tu veux vraiment. désolé. à+ Poc "PST" a écrit dans le message de news: 47529b14$0$27374$ Merci pour la réponse,
Range("F1:F" & c).Select me sélectionne les 3 premières lignes si il y a 3 valeurs dans le tableau mais pas les N° de lignes qui correspon dent aux valeurs du tableau.
mais ce que je voudrais c'est :
Si dans A = Selection (Donc tableau) Il y a comme valeur 10, 20,30 Dans feuil3, ne seraient apparentes que les lignes ayant les N° 10, 20 et 30. le reste des lignes n'apparaissant pas.
Pour résumer une boucle sur la colonne A par exemple,et qui compare les valeurs tableau avec les N° de lignes, ci les deux valeurs correspo ndent le ligne est affichée, sinon elle ne doit pas apparaitre.
dans l'exemple ci dessus que les lignes N° 10,20 et 30 doivent apparaitre sur la feuille.
Bonjour, essaie cela
Sub Sélect_Lignes_Tab() 'Mets la ligne , ou les valeurs sélectionnées dans tableau 'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _ (prompt:="selectionner les cellules a traiter", _ Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection c = Selection.Count
Sheets("feuil3").Cells(1, 4) = c
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A) Sheets("feuil3").select
Dim cell As Range
For Each cell In Range("F1:F" & c) If cell.Value >= 100 Then cell.Font.ColorIndex = 10 End If Next
Range("F1:F" & c).select End sub
à+ Cordialement Poc
"PST" a écrit dans le message de news: 475203fa$0$5071$ Merci pour la réponse mais pour être plus clair. Je voudrais que si dans A = Selection , il y les valeurs 8,10,12 ,100 Seules les N° lignes 8,10,12,100 de feuil 3 soient sélectionné s
Sub Sélect_Lignes_Tab()
'Mets la ligne , ou les valeurs sélectionnées dans tableau 'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _ (prompt:="selectionner les cellules a traiter", _ Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)
Bonsoir, Il manque déjà : Sheets("feuil3").Select à mettre avant For Each cell In Range("F1:F" & c) If cell.Value >= 100 Then cell.Font.ColorIndex = 10 End If Next Cordialement Poc
"PST" a écrit dans le message de news: 47515035$0$27388$ Bonjour
Je sélectionne des valeurs sur une ligne, les mets dans un tablea u.
Je voudrais que les N° de lignes qui correspondent aux valeurs du tableau soient sélectionnée en feuil3
merci
Sub Sélect_Lignes_Tab()
'Mets la ligne , ou les valeurs sélectionnées dans tableau 'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _ (prompt:="selectionner les cellules a traiter", _ Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection c = Selection.Count
Sheets("feuil3").Cells(1, 4) = c
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)
Dim cell As Range
For Each cell In Range("F1:F" & c) If cell.Value >= 100 Then cell.Font.ColorIndex = 10 End If Next
"PST" <pgjignorez@wanadoo.fr> a écrit dans le message de news:
4755505a$0$25931$ba4acef3@news.orange.fr...
Bonjour et merci
le principe c'est exactem:ent cela, sauf que si je sélectionne en
dessous de 34 c'est bon.
Mais si je dépasse cette valeur, cela ne sélectionne que jusqu'à trente
quatre, alors que je voudrais quelque soit le nombre de valeurs
sélectionnées, les N° de lignes correspondantes soient sélectio nnées.
15 valeurs dans tableau = 15 N° lignes sélectionnées.
20 valeurs dans tableau = 20 N° lignes sélectionnées.
et..
Bonjour
en espérant que cela va aller
http://cjoint.com/?mdnoT4733U
à+
Poc
"PST" <pgjignorez@wanadoo.fr> a écrit dans le message de news:
4752dad4$0$25938$ba4acef3@news.orange.fr...
Comme demandé, ci joint exemple en espérant avoir été plus cla ir
http://cjoint.com/?mcrqYBDdXr
Mets ton fichier ici :
http://cjoint.com/
Peut-être que j'"arriverai à comprendre ce que tu veux vraiment. désolé.
à+
Poc
"PST" <pgjignorez@wanadoo.fr> a écrit dans le message de news:
47529b14$0$27374$ba4acef3@news.orange.fr...
Merci pour la réponse,
Range("F1:F" & c).Select me sélectionne les 3 premières lignes si il y a
3 valeurs dans le tableau mais pas les N° de lignes qui correspon dent
aux valeurs du tableau.
mais ce que je voudrais c'est :
Si dans A = Selection (Donc tableau)
Il y a comme valeur 10, 20,30
Dans feuil3, ne seraient apparentes que les lignes ayant les N° 10, 20
et 30. le reste des lignes n'apparaissant pas.
Pour résumer une boucle sur la colonne A par exemple,et qui compare les
valeurs tableau avec les N° de lignes, ci les deux valeurs correspo ndent
le ligne est affichée, sinon elle ne doit pas apparaitre.
dans l'exemple ci dessus que les lignes N° 10,20 et 30 doivent
apparaitre sur la feuille.
Bonjour, essaie cela
Sub Sélect_Lignes_Tab()
'Mets la ligne , ou les valeurs sélectionnées dans tableau
'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _
(prompt:="selectionner les cellules a traiter", _
Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection
c = Selection.Count
Sheets("feuil3").Cells(1, 4) = c
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)
Sheets("feuil3").select
Dim cell As Range
For Each cell In Range("F1:F" & c)
If cell.Value >= 100 Then
cell.Font.ColorIndex = 10
End If
Next
Range("F1:F" & c).select
End sub
à+
Cordialement
Poc
"PST" <pgjignorez@wanadoo.fr> a écrit dans le message de news:
475203fa$0$5071$ba4acef3@news.orange.fr...
Merci pour la réponse mais pour être plus clair.
Je voudrais que si dans A = Selection , il y les valeurs 8,10,12 ,100
Seules les N° lignes 8,10,12,100 de feuil 3 soient sélectionné s
Sub Sélect_Lignes_Tab()
'Mets la ligne , ou les valeurs sélectionnées dans tableau
'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _
(prompt:="selectionner les cellules a traiter", _
Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)
Bonsoir,
Il manque déjà : Sheets("feuil3").Select
à mettre avant
For Each cell In Range("F1:F" & c)
If cell.Value >= 100 Then
cell.Font.ColorIndex = 10
End If
Next
Cordialement
Poc
"PST" <pgjignorez@wanadoo.fr> a écrit dans le message de news:
47515035$0$27388$ba4acef3@news.orange.fr...
Bonjour
Je sélectionne des valeurs sur une ligne, les mets dans un tablea u.
Je voudrais que les N° de lignes qui correspondent aux valeurs du
tableau soient sélectionnée en feuil3
merci
Sub Sélect_Lignes_Tab()
'Mets la ligne , ou les valeurs sélectionnées dans tableau
'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _
(prompt:="selectionner les cellules a traiter", _
Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection
c = Selection.Count
Sheets("feuil3").Cells(1, 4) = c
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)
Dim cell As Range
For Each cell In Range("F1:F" & c)
If cell.Value >= 100 Then
cell.Font.ColorIndex = 10
End If
Next
"PST" a écrit dans le message de news: 4755505a$0$25931$ Bonjour et merci
le principe c'est exactem:ent cela, sauf que si je sélectionne en dessous de 34 c'est bon. Mais si je dépasse cette valeur, cela ne sélectionne que jusqu'à trente quatre, alors que je voudrais quelque soit le nombre de valeurs sélectionnées, les N° de lignes correspondantes soient sélectio nnées.
15 valeurs dans tableau = 15 N° lignes sélectionnées. 20 valeurs dans tableau = 20 N° lignes sélectionnées. et..
Bonjour en espérant que cela va aller http://cjoint.com/?mdnoT4733U à+ Poc
"PST" a écrit dans le message de news: 4752dad4$0$25938$ Comme demandé, ci joint exemple en espérant avoir été plus cla ir
http://cjoint.com/?mcrqYBDdXr
Mets ton fichier ici : http://cjoint.com/ Peut-être que j'"arriverai à comprendre ce que tu veux vraiment. désolé. à+ Poc "PST" a écrit dans le message de news: 47529b14$0$27374$ Merci pour la réponse,
Range("F1:F" & c).Select me sélectionne les 3 premières lignes si il y a 3 valeurs dans le tableau mais pas les N° de lignes qui correspon dent aux valeurs du tableau.
mais ce que je voudrais c'est :
Si dans A = Selection (Donc tableau) Il y a comme valeur 10, 20,30 Dans feuil3, ne seraient apparentes que les lignes ayant les N° 10, 20 et 30. le reste des lignes n'apparaissant pas.
Pour résumer une boucle sur la colonne A par exemple,et qui compare les valeurs tableau avec les N° de lignes, ci les deux valeurs correspo ndent le ligne est affichée, sinon elle ne doit pas apparaitre.
dans l'exemple ci dessus que les lignes N° 10,20 et 30 doivent apparaitre sur la feuille.
Bonjour, essaie cela
Sub Sélect_Lignes_Tab() 'Mets la ligne , ou les valeurs sélectionnées dans tableau 'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _ (prompt:="selectionner les cellules a traiter", _ Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection c = Selection.Count
Sheets("feuil3").Cells(1, 4) = c
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A) Sheets("feuil3").select
Dim cell As Range
For Each cell In Range("F1:F" & c) If cell.Value >= 100 Then cell.Font.ColorIndex = 10 End If Next
Range("F1:F" & c).select End sub
à+ Cordialement Poc
"PST" a écrit dans le message de news: 475203fa$0$5071$ Merci pour la réponse mais pour être plus clair. Je voudrais que si dans A = Selection , il y les valeurs 8,10,12 ,100 Seules les N° lignes 8,10,12,100 de feuil 3 soient sélectionné s
Sub Sélect_Lignes_Tab()
'Mets la ligne , ou les valeurs sélectionnées dans tableau 'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _ (prompt:="selectionner les cellules a traiter", _ Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)
Bonsoir, Il manque déjà : Sheets("feuil3").Select à mettre avant For Each cell In Range("F1:F" & c) If cell.Value >= 100 Then cell.Font.ColorIndex = 10 End If Next Cordialement Poc
"PST" a écrit dans le message de news: 47515035$0$27388$ Bonjour
Je sélectionne des valeurs sur une ligne, les mets dans un tablea u.
Je voudrais que les N° de lignes qui correspondent aux valeurs du tableau soient sélectionnée en feuil3
merci
Sub Sélect_Lignes_Tab()
'Mets la ligne , ou les valeurs sélectionnées dans tableau 'Et les recopies dans une colonnes en transposant.
Set Acopier = Application.InputBox _ (prompt:="selectionner les cellules a traiter", _ Title:="cellules à traiter", Type:=8)
Acopier.Select
A = Selection c = Selection.Count
Sheets("feuil3").Cells(1, 4) = c
Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)
Dim cell As Range
For Each cell In Range("F1:F" & c) If cell.Value >= 100 Then cell.Font.ColorIndex = 10 End If Next
