Langague macro

Résolu
JOLARITALE Messages postés 149 Statut Membre -  
JOLARITALE Messages postés 149 Statut Membre -
Bonjour,
En langue macro comment dit on
"cherche dans la cellule C5 des feuille A à W"

et comment dit on aussi
"dans la feuille que tu trouvera cherche "X""

Puis " dans la ligne du "X" ecris "V" en colonne J"

j'aimerais tant faire mes macros toutes seule mais il me manque l'essentiel : "les fonction possibles"....
A voir également:

4 réponses

eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

1)
Dim w As Worksheet
For Each w In Worksheets
If w.Name = "Feuil2" Then
' faire ceci
End If
Next w

Selon comment sont nommées tes feuilles tu peux tester sur un nom refabriqué pour alléger le code.
Par exemple :
If left(w.Name,2) = "D_" : le code s'executera sur toutes les feuilles commençant par D_...

Ou bien tester les noms des feuilles ou le code ne doit pas s'appliquer (s'il y a moins de nom de feuilles à tester)

2) tu te mets en enregistrement de macro et tu adaptes le code.

3) cells(celluleX.row, n°colonne)= "V"

eric
0
JOLARITALE Messages postés 149 Statut Membre 4
 
Bonjour,

Ok je crois que c'est bon merci ;)

Par contre comment ont dit toutes les feuilles sauf la feuille "intel1", "intel2" et "intel3"?

Merci
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

If w.Name <> "Feuil2" and w.Name <> "Feuil3" and w.Name <> "Feuil4" Then
' faire ceci
end if

ou bien pour pourvoir le mettre sur plusieurs lignes s'il y en a bcp :
If w.Name = "Feuil2" or w.Name = "Feuil3" Then next w
If w.Name = "Feuil4" or w.Name = "Feuil5" Then next w
' faire ceci

Le mieux est quand même qu'elle démarrent par les mêmes caracteres

eric
0
JOLARITALE Messages postés 149 Statut Membre 4
 
oK
Merci

beaucoup
ca y est mon programme est terminé ;)

je suis trop contente

Merci beaucoup a vous tous qui m'avez aidé :)

sans vous je serrais vraiment dans le petrin ;)))

je ne sais comment vous remercier! si vous n'étiez pas tous des internet de super lion je vous aurais tous invité a boir un verre mais la... ça reduit pas mal les possibilité lol

encore merci et bonne journée
0