Je tourne en rond sur un pb pourtant basique:
Comment faire pour detecter une valeur Toto dans une=20
colonne, selectionner des cellules en offset par rapport=20
a cette valeur Toto et copier le tout sur plusieurs=20
colonnes a cote jusqu;a ce que la valeut TOTO soit ne=20
nouveau detecter e t recommencer jusq=E1 la fin d=FAn=20
tableau?
Tu aurais à définir le plus précisément ton problème. la qualité des réponses seraient à mon avis meilleure.
Voici un exemple :
Recherche dans la feuille 1 , la cellule où il est écrit toto et copie cette cellule et les 10 cellules en dessous vers une plage nommée dest dans la feuille 2
'-------------- Sub TrouverToto()
Dim Rg As Range, Dest As Range
With Worksheets("Feuil2") Set Dest = .Range("G10") End With
With Worksheets("Feuil1") Set Rg = .Cells.Find("Toto") If Not Rg Is Nothing Then Rg.Resize(10, 1).Copy Dest End If End With
End Sub '----------------
Salutations!
"David" a écrit dans le message de news:014c01c34004$86f8b940$ Salut,
Je tourne en rond sur un pb pourtant basique: Comment faire pour detecter une valeur Toto dans une colonne, selectionner des cellules en offset par rapport a cette valeur Toto et copier le tout sur plusieurs colonnes a cote jusqu;a ce que la valeut TOTO soit ne nouveau detecter e t recommencer jusqá la fin dún tableau?
Merci d'avance pour vos précieuses reponses
David
Bonjour David,
Tu aurais à définir le plus précisément ton problème.
la qualité des réponses seraient à mon avis meilleure.
Voici un exemple :
Recherche dans la feuille 1 , la cellule où il est écrit toto et
copie cette cellule et les 10 cellules en dessous vers
une plage nommée dest dans la feuille 2
'--------------
Sub TrouverToto()
Dim Rg As Range, Dest As Range
With Worksheets("Feuil2")
Set Dest = .Range("G10")
End With
With Worksheets("Feuil1")
Set Rg = .Cells.Find("Toto")
If Not Rg Is Nothing Then
Rg.Resize(10, 1).Copy Dest
End If
End With
End Sub
'----------------
Salutations!
"David" <dvtournadre@free.fr> a écrit dans le message de news:014c01c34004$86f8b940$a501280a@phx.gbl...
Salut,
Je tourne en rond sur un pb pourtant basique:
Comment faire pour detecter une valeur Toto dans une
colonne, selectionner des cellules en offset par rapport
a cette valeur Toto et copier le tout sur plusieurs
colonnes a cote jusqu;a ce que la valeut TOTO soit ne
nouveau detecter e t recommencer jusqá la fin dún
tableau?
Tu aurais à définir le plus précisément ton problème. la qualité des réponses seraient à mon avis meilleure.
Voici un exemple :
Recherche dans la feuille 1 , la cellule où il est écrit toto et copie cette cellule et les 10 cellules en dessous vers une plage nommée dest dans la feuille 2
'-------------- Sub TrouverToto()
Dim Rg As Range, Dest As Range
With Worksheets("Feuil2") Set Dest = .Range("G10") End With
With Worksheets("Feuil1") Set Rg = .Cells.Find("Toto") If Not Rg Is Nothing Then Rg.Resize(10, 1).Copy Dest End If End With
End Sub '----------------
Salutations!
"David" a écrit dans le message de news:014c01c34004$86f8b940$ Salut,
Je tourne en rond sur un pb pourtant basique: Comment faire pour detecter une valeur Toto dans une colonne, selectionner des cellules en offset par rapport a cette valeur Toto et copier le tout sur plusieurs colonnes a cote jusqu;a ce que la valeut TOTO soit ne nouveau detecter e t recommencer jusqá la fin dún tableau?
Merci d'avance pour vos précieuses reponses
David
David
Salut Michdenis,
Merci pour ta reponse, Effectivement ma demande est un peu flou. Ci joint le cas exact: C'est le permeir tableau que j'obtiens, avec chque fois un nombre aleatoire de ligne et de colonnes quand je rafraichis mes calculs Type Vehicule Megane Wk28 Wk29 Ess 3600 2950 Diesel 0 500 Type Ordinateur Ibook Wk28 Wk29 FDD 0 850 noFDD 4000 4400 DVD 4500 5000
Donc pour rechercher les celulles en ofset et le colles j'utilise: Cells.Find(What:=("Type"), After:¬tiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _ :=xlByRows, SearchDirection:=xlNext, MatchCase:úlse).Activate ' ActiveCell.Offset(0, 1).Copy ActiveCell.Offset(2, -2).PasteSpecial
Par contre je ne vopis pas comment faire pour: 1- repeter cette 1er operation de copier coller tout le long de mon tableau,
2- Coller dans les espaces le reste
Quand penses tu ?
Merci
David
-----Message d'origine----- Bonjour David,
Tu aurais à définir le plus précisément ton problème. la qualité des réponses seraient à mon avis meilleure.
Voici un exemple :
Recherche dans la feuille 1 , la cellule où il est écrit toto et
copie cette cellule et les 10 cellules en dessous vers une plage nommée dest dans la feuille 2
'-------------- Sub TrouverToto()
Dim Rg As Range, Dest As Range
With Worksheets("Feuil2") Set Dest = .Range("G10") End With
With Worksheets("Feuil1") Set Rg = .Cells.Find("Toto") If Not Rg Is Nothing Then Rg.Resize(10, 1).Copy Dest End If End With
End Sub '----------------
Salutations!
"David" a écrit dans le message de news:014c01c34004$86f8b940$
Salut,
Je tourne en rond sur un pb pourtant basique: Comment faire pour detecter une valeur Toto dans une colonne, selectionner des cellules en offset par rapport a cette valeur Toto et copier le tout sur plusieurs colonnes a cote jusqu;a ce que la valeut TOTO soit ne nouveau detecter e t recommencer jusqá la fin dún tableau?
Merci d'avance pour vos précieuses reponses
David
.
Salut Michdenis,
Merci pour ta reponse, Effectivement ma demande est un peu
flou. Ci joint le cas exact:
C'est le permeir tableau que j'obtiens, avec chque fois un
nombre aleatoire de ligne et de colonnes quand je
rafraichis mes calculs
Type Vehicule
Megane Wk28 Wk29
Ess 3600 2950
Diesel 0 500
Type Ordinateur
Ibook Wk28 Wk29
FDD 0 850
noFDD 4000 4400
DVD 4500 5000
Donc pour rechercher les celulles en ofset et le colles
j'utilise:
Cells.Find(What:=("Type"), After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False).Activate
'
ActiveCell.Offset(0, 1).Copy
ActiveCell.Offset(2, -2).PasteSpecial
Par contre je ne vopis pas comment faire pour:
1- repeter cette 1er operation de copier coller tout le
long de mon tableau,
2- Coller dans les espaces le reste
Quand penses tu ?
Merci
David
-----Message d'origine-----
Bonjour David,
Tu aurais à définir le plus précisément ton problème.
la qualité des réponses seraient à mon avis meilleure.
Voici un exemple :
Recherche dans la feuille 1 , la cellule où il est écrit
toto et
copie cette cellule et les 10 cellules en dessous vers
une plage nommée dest dans la feuille 2
'--------------
Sub TrouverToto()
Dim Rg As Range, Dest As Range
With Worksheets("Feuil2")
Set Dest = .Range("G10")
End With
With Worksheets("Feuil1")
Set Rg = .Cells.Find("Toto")
If Not Rg Is Nothing Then
Rg.Resize(10, 1).Copy Dest
End If
End With
End Sub
'----------------
Salutations!
"David" <dvtournadre@free.fr> a écrit dans le message de
news:014c01c34004$86f8b940$a501280a@phx.gbl...
Salut,
Je tourne en rond sur un pb pourtant basique:
Comment faire pour detecter une valeur Toto dans une
colonne, selectionner des cellules en offset par rapport
a cette valeur Toto et copier le tout sur plusieurs
colonnes a cote jusqu;a ce que la valeut TOTO soit ne
nouveau detecter e t recommencer jusqá la fin dún
tableau?
Merci pour ta reponse, Effectivement ma demande est un peu flou. Ci joint le cas exact: C'est le permeir tableau que j'obtiens, avec chque fois un nombre aleatoire de ligne et de colonnes quand je rafraichis mes calculs Type Vehicule Megane Wk28 Wk29 Ess 3600 2950 Diesel 0 500 Type Ordinateur Ibook Wk28 Wk29 FDD 0 850 noFDD 4000 4400 DVD 4500 5000
Donc pour rechercher les celulles en ofset et le colles j'utilise: Cells.Find(What:=("Type"), After:¬tiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _ :=xlByRows, SearchDirection:=xlNext, MatchCase:úlse).Activate ' ActiveCell.Offset(0, 1).Copy ActiveCell.Offset(2, -2).PasteSpecial
Par contre je ne vopis pas comment faire pour: 1- repeter cette 1er operation de copier coller tout le long de mon tableau,
2- Coller dans les espaces le reste
Quand penses tu ?
Merci
David
-----Message d'origine----- Bonjour David,
Tu aurais à définir le plus précisément ton problème. la qualité des réponses seraient à mon avis meilleure.
Voici un exemple :
Recherche dans la feuille 1 , la cellule où il est écrit toto et
copie cette cellule et les 10 cellules en dessous vers une plage nommée dest dans la feuille 2
'-------------- Sub TrouverToto()
Dim Rg As Range, Dest As Range
With Worksheets("Feuil2") Set Dest = .Range("G10") End With
With Worksheets("Feuil1") Set Rg = .Cells.Find("Toto") If Not Rg Is Nothing Then Rg.Resize(10, 1).Copy Dest End If End With
End Sub '----------------
Salutations!
"David" a écrit dans le message de news:014c01c34004$86f8b940$
Salut,
Je tourne en rond sur un pb pourtant basique: Comment faire pour detecter une valeur Toto dans une colonne, selectionner des cellules en offset par rapport a cette valeur Toto et copier le tout sur plusieurs colonnes a cote jusqu;a ce que la valeut TOTO soit ne nouveau detecter e t recommencer jusqá la fin dún tableau?
