Discussion :

[manphenix]

Bonjour,

Je cherche a faire un "si" sur les celulles d'une ligne mais ca ne veut pas¨!
je n'arrive pas à voir d ou vient ma faute.


-----------------------------------------------------------------------

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
Sub transfo_xls_be_en_lu()
    
   
   
    Dim numcol As Double, numligne As Double, nbtotalligne As Double, nbtotalcol As Double
    Dim i As Double
    Dim d As Double
    Dim colat As Double
    
    
    
    Application.ScreenUpdating = False 'ici c est pour rendre inactif l affichage le travail de la macro

    On Error GoTo erreur
    
    Workbooks.Open Filename:="G:\Rapport stage\Organisation\Double et travail macro\Conversion xls\vegcdelux2l.xls"
    Application.Workbooks("vegcdelux2l.xls").Activate
    
    On Error GoTo 0         'pour dire de ne plus tenir compte du truc d erreur d avant si y en a pas eu
    
    numcol = 1          'A MODIF
    nbtotalligne = Compte_nb_lignes_non_caches(numcol)
    colat = 46
    For i = 2 To nbtotalligne
        If Worksheets("Sheet1").Cells(i, colat).Value = 0 Then
            Worksheets("Sheet1").Cells(i, colat).Value = 7        End If
    Next i
      
    Application.ScreenUpdating = True  'ici c est pour rendre actif l affichage le travail de la macro

Exit Sub

erreur:
MsgBox prompt:="Impossible d'accéder au fichier vevehlux !!" & Chr(10) _
& "Placez le dans le lecteur H:, dossier 'pilotes', sous-dossier 'pil_conc' et sous - dossier 'basevn' pour" & Chr(10) _
& "pouvoir le traiter !", Title:="Erreur", Buttons:=vbCritical
MsgBox prompt:="si vous souhaitez modifier le chemin dans la macro excel ou maillez moi sur Title:="Conseil" _
, Buttons:=vbCritical

[Gorfael]

Salut manphenix

Il y a un forum VBA Excel et c'est là que tu devrais poster
il y a des balises de code et les utiliser ne nuit pas

Les seules lignes en rouge sont :

Code :

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

1
2
3
If Worksheets("Sheet1").Cells(i, colat).Value = 0 Then
     Worksheets("Sheet1").Cells(i, colat).Value = 7 
End If

à part le end if mal placé (du à la recopie ?), il n'y a pas d'erreurs de syntaxe.
Reste les valeurs de i à ta place, je regarderais i au moment de l'erreur
A+

[manphenix]

merci pour la reponse, l'utilisation du forum commence a venir petit à petit