Bonjour,
j'utilise la macro suivante. Il est spécifié a un moment que le
resultat de la recherche coupe la premiere ligne et celle
(obligatoirement) du dessous pour mettre ces 2 lignes en A19:A20.
Merci de me dire ce qu'il faut changer dans cette macro afin de couper
(toujours) la premiere ligne mais aussi les 2 du dessous, et
cette-fois ci pour les mettre en lgine A19:A21 !!!!
Meilleures salutations.
Stéphane CHARI
----------------------
Sub RECHERCHE()
Range("A29").Select
ActiveSheet.Paste
Range("A1").Select
Dim Cellule As Range
Dim DL As Long
'recherche la dernière ligne en partant du bas de la
feuille
'ceci afin d'incorporer les cellules vides
DL = [A65536].End(xlUp).Row
'recherche dans la plage à partir de la cellule "A29"
For Each Cellule In Range("A29:A" & DL)
'si la cellule contient la valeur inscrite en "B2", la
coupe avec celle d'en dessous
'et les colle en "A19:A20" puis sort de la boucle
If InStr(Cellule.Value, [b1]) <> 0 Then
OK merci Asterix. J'ai un autre probleme maintenant : j'ai plusieurs onglets dont les cellules de certains vont chercher les donnees d'autres onglets du style : (GAUCHE(STXT(Feuil1!A19;110;13);NBCAR(STXT(Feuil1!A19;110;13))-2)&","&DROITE( STXT(Feuil1!A19;110;13);2))+0
Je suis oblige maintenant de cliquer sur chaque formule et faire entrer afin de valider les donnees. Que faut-il faire afin que, des le lancement de ma macro, les cellules se mettent automatiquement a jour ?
Merci. Slts
Stephane CHARI
"Asterix" wrote in message news:...
bonjour,
je n'ai pas bien regardé, mais certainement la ligne suivante :
Range(Cellule.Address, Cellule.Offset(1, 0).Address).Copy Destination:=Range("A19:A20") que tu changes en :
OK merci Asterix. J'ai un autre probleme maintenant : j'ai plusieurs
onglets dont les cellules de certains vont chercher les donnees
d'autres onglets du style :
(GAUCHE(STXT(Feuil1!A19;110;13);NBCAR(STXT(Feuil1!A19;110;13))-2)&","&DROITE(
STXT(Feuil1!A19;110;13);2))+0
Je suis oblige maintenant de cliquer sur chaque formule et faire
entrer afin de valider les donnees. Que faut-il faire afin que, des le
lancement de ma macro, les cellules se mettent automatiquement a jour
?
Merci.
Slts
Stephane CHARI
"Asterix" <AsterixNS@oreka.com> wrote in message news:<OcRcyVTLEHA.1340@TK2MSFTNGP12.phx.gbl>...
bonjour,
je n'ai pas bien regardé, mais certainement la ligne suivante :
Range(Cellule.Address, Cellule.Offset(1, 0).Address).Copy
Destination:=Range("A19:A20")
que tu changes en :
OK merci Asterix. J'ai un autre probleme maintenant : j'ai plusieurs onglets dont les cellules de certains vont chercher les donnees d'autres onglets du style : (GAUCHE(STXT(Feuil1!A19;110;13);NBCAR(STXT(Feuil1!A19;110;13))-2)&","&DROITE( STXT(Feuil1!A19;110;13);2))+0
Je suis oblige maintenant de cliquer sur chaque formule et faire entrer afin de valider les donnees. Que faut-il faire afin que, des le lancement de ma macro, les cellules se mettent automatiquement a jour ?
Merci. Slts
Stephane CHARI
"Asterix" wrote in message news:...
bonjour,
je n'ai pas bien regardé, mais certainement la ligne suivante :
Range(Cellule.Address, Cellule.Offset(1, 0).Address).Copy Destination:=Range("A19:A20") que tu changes en :
Bonjour, quelqu'un aurait il la reponse SVP. Merci. Stephane
(St?phane CHARI) wrote in message news:...
OK merci Asterix. J'ai un autre probleme maintenant : j'ai plusieurs onglets dont les cellules de certains vont chercher les donnees d'autres onglets du style : (GAUCHE(STXT(Feuil1!A19;110;13);NBCAR(STXT(Feuil1!A19;110;13))-2)&","&DROITE( STXT(Feuil1!A19;110;13);2))+0
Je suis oblige maintenant de cliquer sur chaque formule et faire entrer afin de valider les donnees. Que faut-il faire afin que, des le lancement de ma macro, les cellules se mettent automatiquement a jour ?
Merci. Slts
Stephane CHARI
"Asterix" wrote in message news:...
bonjour,
je n'ai pas bien regardé, mais certainement la ligne suivante :
Range(Cellule.Address, Cellule.Offset(1, 0).Address).Copy Destination:=Range("A19:A20") que tu changes en :
Bonjour,
quelqu'un aurait il la reponse SVP.
Merci.
Stephane
charist@cmsmb.creditmutuel.fr (St?phane CHARI) wrote in message news:<973d2cf5.0404290838.2240cb0b@posting.google.com>...
OK merci Asterix. J'ai un autre probleme maintenant : j'ai plusieurs
onglets dont les cellules de certains vont chercher les donnees
d'autres onglets du style :
(GAUCHE(STXT(Feuil1!A19;110;13);NBCAR(STXT(Feuil1!A19;110;13))-2)&","&DROITE(
STXT(Feuil1!A19;110;13);2))+0
Je suis oblige maintenant de cliquer sur chaque formule et faire
entrer afin de valider les donnees. Que faut-il faire afin que, des le
lancement de ma macro, les cellules se mettent automatiquement a jour
?
Merci.
Slts
Stephane CHARI
"Asterix" <AsterixNS@oreka.com> wrote in message news:<OcRcyVTLEHA.1340@TK2MSFTNGP12.phx.gbl>...
bonjour,
je n'ai pas bien regardé, mais certainement la ligne suivante :
Range(Cellule.Address, Cellule.Offset(1, 0).Address).Copy
Destination:=Range("A19:A20")
que tu changes en :
Bonjour, quelqu'un aurait il la reponse SVP. Merci. Stephane
(St?phane CHARI) wrote in message news:...
OK merci Asterix. J'ai un autre probleme maintenant : j'ai plusieurs onglets dont les cellules de certains vont chercher les donnees d'autres onglets du style : (GAUCHE(STXT(Feuil1!A19;110;13);NBCAR(STXT(Feuil1!A19;110;13))-2)&","&DROITE( STXT(Feuil1!A19;110;13);2))+0
Je suis oblige maintenant de cliquer sur chaque formule et faire entrer afin de valider les donnees. Que faut-il faire afin que, des le lancement de ma macro, les cellules se mettent automatiquement a jour ?
Merci. Slts
Stephane CHARI
"Asterix" wrote in message news:...
bonjour,
je n'ai pas bien regardé, mais certainement la ligne suivante :
Range(Cellule.Address, Cellule.Offset(1, 0).Address).Copy Destination:=Range("A19:A20") que tu changes en :
