selection automatique de cellules en VBA

[BAT]

Bonsoir!

Petite présentation du cas!

J'ai une feuille 'test' avec en A1 une valeur qui est est soit TEST1, TEST2...... TEST X

Dans une autre feuille intitulé 'résultat' jai des informations sur TEST1, TEST2,... TESTX. En A1 j'ai le nom TEST1 puis sur les 3 cellules du dessous des info! Ensuite en cellule A6 j'ai le nom TEST2 puis sur les 3 cellules du dessous des info....


Je cherche le code VBA qui me permet d'exécuter l'opération suivante :

- Rechercher dans la feuille 'résultat' la valeur de la feuille 'test' cellule A1 (je suppose qu'il s'agit d'une variable)
- Ensuite la macro doit me selectionner les 3 cellules juste en dessous et les copier! C'est tout


Si vos pouvez m'aide se serai cool!

Ci joint la même chose mais en image ! [file name=ExempleBAT.zip size=4947]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleBAT.zip[/file]

 

[2passage]

Bonjour,

c'est pour faire quoi que tu souhaite copier les cellules (j'imagine que c'est pour mettre le svaleur quelquepart), parce que ca doit etre possible par formule

A+

 

[2passage]

Re,

par exemple, collée dans la feuille A, les 3 formules suivant vont chercher les infos
=INDIRECT('résultat!A' & (SUBSTITUE($A$1;'TEST';'')*5)-3)
=INDIRECT('résultat!A' & (SUBSTITUE($A$1;'TEST';'')*5)-2)
=INDIRECT('résultat!A' & (SUBSTITUE($A$1;'TEST';'')*5)-1)

A+

 

[daniel]

En fait c'est pour conclure l'automatisation d'un programe que j'ai fait en VBA! Les cellules copiées sont collées dans une autre feuille où là la macro éclate ces info! Le but est de créer une étiquette prête à imprimer!

Donc les 3 cellules que je copie sont en fait recollé dans 3 autres cellules!

En formule ça pourrai peut être le faire oui! C'est même peut etre mieux

Je t'envoi le résultat que je pense [file name=ExempleBAT2.zip size=5647]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleBAT2.zip[/file]

 

[DAniel]

Mais oui, c'est tout à fait ça et c'est nikel!
merci eaucoup beaucoup

 

[_Thierry]

Bonsoir Daniel, 2passage, le Forum

Et en VBA on pourrait faire ceci :

Option Explicit

Sub TheInfoFinder()
Dim Plage As Range
Dim Cell As Range
Dim SearchString As String

SearchString = Sheets('Test').Range('A1')

With Sheets('résultat')
    Set Plage = .Range('A1:A' & .Range('A65536').End(xlUp).Row)
    .Activate
End With

For Each Cell In Plage
    If Cell.Text = SearchString Then
    ActiveWindow.ScrollRow = Cell.Row
    Range(Cell.Offset(1, 0), Cell.Offset(3, 0)).Select
   
    'Un Message pour faire zoli 😉
    MsgBox Cell & vbCrLf & Cell.Offset(1, 0) & vbCrLf & _
            Cell.Offset(2, 0) & vbCrLf & Cell.Offset(3, 0), vbInformation
   
    End If
Next
End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

 

[DAniel]

Bonjour à vous 2 et au forum!

Le VBA est exactement ce que je voulais ! Mais en fait par formule ça m'arrange dans mon cas! merci beaucoup thierry.