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 tableau.
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
End Sub
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 tableau.
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
End Sub
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 tableau.
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
End Sub
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 tableau.
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
End Sub
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 tableau.
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
End Sub
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 tableau.
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
End Sub
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 tableau.
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
End Sub
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 tableau.
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
End Sub
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 tableau.
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
End Sub
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,10 0
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 tableau.
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
End Sub
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,10 0
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 tableau.
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
End Sub
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,10 0
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 tableau.
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
End Sub
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 i l y a
3 valeurs dans le tableau mais pas les N° de lignes qui corresponde nt
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, 2 0
et 30. le reste des lignes n'apparaissant pas.
Pour résumer une boucle sur la colonne A par exemple,et qui compare l es
valeurs tableau avec les N° de lignes, ci les deux valeurs correspond ent
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,1 00
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 tableau.
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
End Sub
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 i l y a
3 valeurs dans le tableau mais pas les N° de lignes qui corresponde nt
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, 2 0
et 30. le reste des lignes n'apparaissant pas.
Pour résumer une boucle sur la colonne A par exemple,et qui compare l es
valeurs tableau avec les N° de lignes, ci les deux valeurs correspond ent
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,1 00
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 tableau.
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
End Sub
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 i l y a
3 valeurs dans le tableau mais pas les N° de lignes qui corresponde nt
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, 2 0
et 30. le reste des lignes n'apparaissant pas.
Pour résumer une boucle sur la colonne A par exemple,et qui compare l es
valeurs tableau avec les N° de lignes, ci les deux valeurs correspond ent
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,1 00
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 tableau.
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
End Sub
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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 clair
http://cjoint.com/?mcrqYBDdXrMets 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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 clair
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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 clair
http://cjoint.com/?mcrqYBDdXrMets 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 correspondent
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 correspondent
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 tableau.
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
End Sub
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 clai r
http://cjoint.com/?mcrqYBDdXrMets 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 correspond ent
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 correspon dent
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 tableau .
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
End Sub
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 clai r
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 correspond ent
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 correspon dent
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 tableau .
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
End Sub
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 clai r
http://cjoint.com/?mcrqYBDdXrMets 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 correspond ent
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 correspon dent
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 tableau .
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
End Sub