Discussion :

[guismoman33]

Bonjour, j'aurai aimez savoir comment nous pouvions reconnaitre un mot pour la première fois qu'on le rencontre...
En effet j'ai un programme avec plein de conditions.
Je veux que des qu'il rencontre un mot qu'il n'a pas rencontrer pendant la boucle, il affiche une présentation selon le catégorie ou la ligne qui se trouve dans la colonne a. En effet il y a des catégorie puisque avant de faire je veu que la présention de chaque catégorie de feuille est sa présentation...
Comment voici mon code, je pense mon code est faux car j'ai mis des exit for un peu partout à chaque fin de if...Alors que je veux qu'il fasse toute les ligne mais n'ajoute qu'une presentation pour chaque catégorie.
Pour le moment il me présente une erreur il mle prend la premiere presentation mais s'arrete...Ne fait pas les autre car je pense que c'est les exit for qui font ceci je n'est aucune solution a ce probleme sniffff

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Macro16()
 
 
    Dim ligne As Integer
    Dim i As Integer
 
    ligne = Range("B65535").End(xlUp).Row
    For i = 1 To ligne
 
    If Range("a" & i) = "1)Dressage" Then
    Workbooks.Open ("C:\Documents and Settings\RICOH\Mes documents\version\Classeur1.xls")
    Range("A1:R18").Select
    Selection.Copy
    Windows("test2.xls").Activate
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("21)Contrôle").Select
    Range("B" & (i - 1)).Select
    Selection.Insert Shift:=xlDown
    Windows("Classeur1.xls").Activate
    ActiveWindow.Close
    Exit For
    End If
 
    If Range("a" & i) = "3)Chariotage" Then
    Workbooks.Open ("C:\Documents and Settings\RICOH\Mes documents\version\Classeur1.xls")
    Range("A24:R41").Select
    Selection.Copy
    Windows("test2.xls").Activate
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("21)Contrôle").Select
    Range("B" & (i - 1)).Select
    Selection.Insert Shift:=xlDown
    Windows("Classeur1.xls").Activate
    ActiveWindow.Close
    Exit For
    End If
 
    Next i
End Sub

[flo_flo]

Edit: le message d'origine ne voulait rien dire

[franck.automaticien]

Arff je n'ai pas une élocution ni une orthographe d'écrivain mais je crois avoir trouvé pire que moi...lol
Je crois, même après avoir lu trois fois le post je n'ai toujours rien compris.
Fais un effort d'orthographe et de Français correct..
Utilise Word et le correcteur d'orthographe comme moi.. lol
Cordialement
Franck

[guismoman33]

Je suis dsl regardez l'heure ou j'ai postez ce message mdr je dormai a moitier lol, j'ai essayer de bien récrire tout sa voila

[mordrhim]

T_T ya interêt d'être réveillé pour pouvoir lire tes messages
déjà au lieu de copier bêtement la création de macro d'excel, essaye de la comprendre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Range("A1:R18").Select
    Selection.Copy
 
    Windows("test2.xls").Activate
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
 
    Sheets("21)Contrôle").Select
    Range("B" & (i - 1)).Select
    Selection.Insert Shift:=xlDown
 
    Windows("Classeur1.xls").Activate
    ActiveWindow.Close

déjà là avec ça, ton macro doit bien faire discothèque (un coup je montre la feuille, un coup pas, un coup une autre etc...)

ensuite :

Code :

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

1
2
3
    If Range("a" & i) = "1)Dressage" Then
 
    If Range("a" & i) = "1)Dressage" Then

je vois pas à quoi ça te sert de faire un test si tu prends les mêmes valeurs !

s'il fait beau alors je vais à la plage, par contre s'il fait beau alors je vais au Zoo

puis encore quelque chose qui me choque :

Code :

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

    Range("B" & (i - 1)).Select

avec un premier test pour i=1 je ne pense pas que ça doit bien fonctionner (le Range("B0") ....)

et comme ce matin j'ai la flemme de faire les codes des autres, je te donnes un conseil.
Avant de faire un programme, fais l'algorithme de ce que tu veux faire, refléchis à ce que tu veux que ca fasse et organise tout ça dans ta tête !

[ouskel'n'or]

Et moi je trouve mordrhim très gentil. J'ajouterai donc mon grain de sel : Si tu as sommeil, va te coucher, il n'est plus temps de programmer. En outre, tu gagneras en qualité et d'orthographe et de réflexion.

[guismoman33]

Mais je l'ai compris le code, de plus, j'ai enlever trop de chose car c'était encore plus lent que maintenant, de la discothèque je suis passez au conceert de musette stp aide moi...

[mordrhim]

autant verrouiller le sujet je pense,

guismoman33,
de une pas la peine de répeter, on sait lire
de deux, tu commencerais presque à être désagréable
de trois, je commence à avoir l'impression que tu fais des codes incompréhensibles juste pour venir flooder et si ce n'est pas le cas, ne fais jamais du VBA ton métier et ne le note jamais sur ton CV !!

sur ce bonne journée à tous.