Reconnaissance de valeur s

Bonjour,

Dans une macro je voudrais ajouter a ma fonction

If Worksheets("types de support").[Range("C6:C230")].Value = "" Then

que qu'elle que soit la donnée il le détecte

le but finale est de crée une maccro capable de copier coller un nombre exact de donné vers un autre fichier excel.

Je vous remercie par avance d'aider un petit (noob )sur VBA

Bonjour Rhumteq

Mets nous STP un bout de fichier...

Moi, cela m'étonnerait que ce ne soit pas plutôt :

If Sheets("types de support").Range("C6:C230").Value = "" Then
...
End If

Note qu'avec la balise codec'est plus lisible

Note que je n'ai pas mis de crochets ici []

Mais on vérifiera cela avec un bout de fichier ...

déjà merci de ta réponse

J'ai un peu avancé la formule en attendant ^^"

Sub gen_pl()
'test genration du pl après copie collé'
Dim type_de_support
type_de_support = Sheets("types de support").Range("C6").Range(Selection, Selection.End(xlDown))

If type_de_support =   Then

Worksheets("types de support").Select
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
wbexcel = appexcel.Worbooks.Open("http://ineorht.corpo.intra/agences/etudes/2  Utilitaires/Topo-dessin/Génération de profil en long LA" & "Annexe-Donnnees-Profil-xxxxx-vierge.xlsx")
Worksheets("RECAP").Activate
Range("A2").Select
ActiveSheet.Paste
End If

End Sub

Voila le but finale est de pouvoir copier des données d'un tableau vers un autres tableau de données ouvert par la macro et cela sur plusieurs colonne viendra par la suite la mise en page mais une chose a la fois.

If type_de_support =   Then

il manque quelque chose après le = !!

et sans fichier, je n'avance pas plus

bye