Discussion :

[Mod77]

Bonjour,

Je ne maitrise pas du tout les codes objets et cherche à contrôler si une colonne est vide pour agir, mais je ne sais comment faire (ligne en gras).

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Open "D:\Votants.csv" For Output As #1
  
  For Each oL In Plage.Rows 'pour chaque ligne de la plage
    if colonne Q de la même ligne est vide then  'si la colonne "Q" est vide faire 
      Tmp = ""
      For Each oC In oL.Cells   'pour chaque colonne de ligne
        Tmp = Tmp & CStr(oC.Text) & Sep
      Next
      Tmp = Left(Tmp, Len(Tmp) - 1) 'supression du dernier séparateur
      Print #1, Tmp         'impression dans le fichier CSV
    End If
  Next
  Close     'ferme le fichier CSV

Quelqu'un saura-t-il m'aider, svp?

[unparia]

Bonjour

Quelqu'un saura-t-il m'aider, svp?

Et toi : sauras-tu nous dire, pour commencer, où et comment tu as déclaré et initialisé la variable Plage ?

Intéresse-toi par ailleurs aux propriétés/collections Rows et Columns

[Mod77]

Oui! unparia,
voici:

Code :

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

1
2
3
Sub ExporteCSV()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, chemin As String, Sep$
Set Plage = ActiveSheet.Range("B6:C" & ActiveSheet.Range("C65000").End(3).Row)

je regarde les collections Rows et Columns...merci

[unparia]

Bon.
Voilà donc comment elle a été DECLAREE (et mal - trop inutilement évasivement - déclarée. Une plage est un objet Range).

[Mod77]

C'est un code que j'ai repris.

voila le début du code entier:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, chemin As String, Sep$
 
  chemin = "D:monfichier.xlsm"     
  Worksheets("Votes").Select
  Sep = ","
 
  'Définie la plage de recherche
  Set Plage = ActiveSheet.Range("B6:C" & ActiveSheet.Range("C65000").End(3).Row)

[unparia]

Une plage est un objet Range