selection automatique de cellules en VBA

B

BAT

Guest
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]
 

Pièces jointes

  • ExempleBAT.zip
    4.8 KB · Affichages: 32
  • ExempleBAT.zip
    4.8 KB · Affichages: 32
  • ExempleBAT.zip
    4.8 KB · Affichages: 32

2passage

XLDnaute Impliqué
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+
 
D

daniel

Guest
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]
 

Pièces jointes

  • ExempleBAT2.zip
    5.5 KB · Affichages: 70

_Thierry

XLDnaute Barbatruc
Repose en paix
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]
 

Discussions similaires

Réponses
2
Affichages
242

Membres actuellement en ligne

Statistiques des forums

Discussions
312 895
Messages
2 093 384
Membres
105 714
dernier inscrit
POKITO