Encadrement sous excelRésolu

Question

Bonjour à tous.

Voila je récupère mes données d'un tableau access que j'envoie vers excel et j'aimerais encadrer toute ces valeurs 
Le fais de récupérer les valeurs et de les envoyers vers excel ne me pose pas de problème,mais j'aimerais encadrer chacune de ces cellules 
Je ne sais pas si il existe une fonction toute simple pour faire un encadrement de toute les cellules ,en même temp que je les envoies sur excel

voici le code que j'utilise pour la recuperation de mes valeurs:

ActiveCell.Offset(-10, 0).CopyFromRecordset recuperationtableau, 20, 4

(recuperationtableau est le résultat d'une requête SQL)

Voila cette question peu sembler un peu stupide mais j'avoue qu'après recherche je n'ai pas trouvé quelque chose qui ressemblais à ce que je voulais. 

Merci d'avance de vos reponse.

bigfish_le vrai · Accepted Answer

Salut,

With Range("B2:F10").Borders               'specifi le format de toute les lignes de la plage B2: F10
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
End With

A+

bigfish_le vrai · Answer

...

Ah au faite t'es pas dans le bon theme. Le VBA c'est ici :   [infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBA_244.aspx VBA] /

lutron · Answer

Merci de me repondre :) 
Alors j'utilise VB6 pour envoyer mes données de access a excel.
Merci pour ton bout de code mais peus t'on remplacer les valeurs dans la paranthèse et mettre des variable à la place ? 
Car mon tableau peus avoir diffèrente taille, en fonction de ce que rentre l'utilisateur ?
Enfin je vais faire des test :)

lutron · Answer

Oui bon la reponse est aussi ba conne que la question XD
voila mon code pour les curieux  :

NombreL = adoConnection.Execute("SELECT COUNT(*) FROM N_Nom")
i = NombreL(0).Value

With Range("B2:C" & i).Borders    
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic

La variable i étant  le nombre de ligne de la table N_Nom

Merci à toi bigfish_levrai :)

Encadrement sous excel

4 réponses

Votre réponse

Discussions similaires