Discussion :

[o-sixty-o]

Bonjour,

Comment pourrais-je traduire en code sur vb le fait que : dès que l’on rencontre le mot « machine » on écrit dans la ligne d’après ( si elle est vide ) le mot « EMULE » et ds la coloonne d’après « Validée »
..
Si la ligne d’après n’est pas vide , écrire ds celle d’après !…
helP

[Gorfael]

Bonjour,

Comment pourrais-je traduire en code sur vb le fait que : dès que l’on rencontre le mot « machine » on écrit dans la ligne d’après ( si elle est vide ) le mot « EMULE » et ds la coloonne d’après « Validée »
..
Si la ligne d’après n’est pas vide , écrire ds celle d’après !…
helP

Salut
En cherchant avec un .Find "machine", en fixant cette cellule et en lançant un compteur dans une boucle Do..Loop qui d'incrément ligne à un offset qui teste si la cellule est vide, sort de la boucle en cas de VRAI et inscrit "emule dans la cellule calculée et fait un offset d'une colonne sur lla cellule d'origine, ou la dernière trouvée.

J'espère que j'ai été aussi clair que ta question.
A+

[House MD]

code (traduction de l'explication de o-60-o) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub test()
 
dim a as integer
 
'On vérifie qu'il y a bien une cellule "machine" dans la colonne (ici col 1)
'Sinon la méthode find plante
if application.match("machine",range(cells(1,1),cell(65536,1)),0)) then
 
  'On applique la méthode find (hyper rapide) avec l'option "xlwhole"
  'qui permet de chercher la cellule ou il y a seulement marqué "machine"
  'et pas "ma machine", sinon, il faut marquer "xlpart"
  a=range(cells(1,1),cell(65536,1)).find(what:="machine",lookat:=xlwhole).row
  if isempty(cells(a+1,1)) then cells(a+1,1)="EMULE"
end if
 
end sub

Attention, la méthode "find" ne détecte pas la première cellule (verticalement, il faut donc que machine soit au mieux en ligne 2)...
Attention, la méthode "application.match" ne détecte pas les chiffres... au cas ou...

Enfin, je considère que ta macro est enregistrée sur la feuille même, sinon, il faut remplacer cells par NomFeuille.cells(a,1) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub test()
 
dim a as integer
dim NomClasseur as workbook
dim NomFeuille as worksheet
 
set NomClasseur =workbooks.open("chemin\NomClasseur.xls")
set NomFeuille = NomClasseur.worksheets(1) 'S'il s'agit bien de la feuille 1
 
'et ensuite :
 
if application.match("machine",range(NomFeuille.cells(1,1),NomFeuille.cell(65536,1)),0)) then
 
...
...
 
end sub