Récupération d'une cellule dans une variable

Version imprimable

bonsoir;
peux-tu m'expliquer pourquoi je n'arrive pas à récupérer la cellule A5 dans une variable Name et la cellule A2 dans une variable size:
j'ai utilisé Range et celles et ça ne marche pas.
Merci pour l'aide
Cordialement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & x) = "A" Then
         Range("B" & x & ":B" & x & "").Select
         Selection.NumberFormat = "0"
         With Selection.Font
         Name = Cells(1, 5)                    ' cette ligne récupère la cellule A5
        .FontStyle = "Normal"
         Size = Cells(1, 2)                      ' cette ligne récupère la cellule A2
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
         End With
Next x

01/12/2014, 21h28
clementmarcotte

Bonjour,

C'est quoi qui ne marche pas ? Quoiqu'il en soit, VBA doit se faire du mauvais sang avec ton Name. Parce qu'il ne sait pas si tu veux lui faire avaler:

Code:

Selection.Font.Name

ou autre chose. Et là, il est supposé te fournir un message d'horreur. Et c'est la même chose pour ton size.

Normalement, dans une structure With - End With, on se limite aux propriétés de l'objet concerné, et on fait attention pour éviter toute ambigüité.

Pour le reste ma boule de cristal est restée opaque.

Bonjour,

c'est ça que tu cherches ?

sinon adaptes à tes besoins

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub essai()
Dim x As Long
For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
  If UCase(Range("A" & x)) = "A" Then
  'j'imagine que les formats changent en col B
    With Range("B" & x)
      .NumberFormat = "0"
      With .Font
        'ci-dessous j'ai écris "arial" en E1
        .Name = Cells(1, 5)
        .FontStyle = "Normal"
        'ci-dessous, j'ai écris 20 en C1
        .Size = Cells(1, 3)
      End With
    End With
  End If
Next x
 
End Sub

PS : ici le "step" ne sert à rien, tu aurais pu faire

Code:

For x = 1 to Range("A" & Rows.Count).End(xlUp).Row

03/12/2014, 23h39
hocss

bonsoir,
Merci pour ta sympathie et aide.
ça marche maintenant, sauf pour la variable Name, apparemment les polices EAN-13 et C39HrP48DhTt (codes à barre)
sont spéciales et la récupération dans une variable cause problème?, de toute façon, pour les autres variables, ça marche.
merci beaucoup.
Cordialement
HBY
:ccool:
04/12/2014, 09h48
casefayere
Bonjour,

Citation:

...ça marche maintenant, sauf pour la variable Name, apparemment les polices EAN-13 et C39HrP48DhTt (codes à barre).....

"Name" n'est pas une variable, "Size" non plus ce sont des mots réservés, le 1er indiquant le nom de police et le second la taille, quand on écrit
Code:

1 2 3 4 5 6 ... With Range("B" & x) .NumberFormat = "0" With .Font .Name = Cells(1, 5) ...
on pourrait écrire
Code:

1 2 3 Range("B" & x).NumberFormat = "0" Range("B" & x).Font.Name = Cells(1, 5) .....
bon courage
04/12/2014, 13h37
hocss

1 pièce(s) jointe(s)

Problème de récupération et de fusion

Bonjour,
merci pour l'effort pour m'aider, voici ci-joint le fichier texte, le fichier excel avec la macro.
j'ai apporté des commentaires dans les paragraphes ou je bloque.
j'ai compressé pour pouvoir joindre la police utilisée.

Cordialement

ne te moque pas de ma macro, j'ai moins d'un mois d'expérience dans le VBA, mais ça marche, c'est l'essentiel n'est ce pas!

HBY:oops:
04/12/2014, 14h00
casefayere

1 pièce(s) jointe(s)

ouai, et bien !!!

je me retrouve avec un fichier qui correspond à l'image ci-dessous, regardes déjà ce que tu as en A5, alors quand j'aurai compris ça, on verra pour le reste, surtout que tu n'as toujours pas modifié ton code en fonction des conseils
04/12/2014, 14h14
hocss

1 pièce(s) jointe(s)

rebonjour
enlève les dernières lignes du programme qui suppriment la colonne A1 et tu auras les cellules qui renseignent la police, la taille, la .hauteur et la largeur
n'oublie pas d'installer sous windows la font: C39HrP48DhTt
moi j'obtiens le résultat ci-joint.
J'ai essayé de suivre tes conseils mais des messages d'erreur, c'est pour cela, j'ai préféré t'envoyer tout le travail, peu t-être c'est plus simple pour toi de comprendre.

cordialement
HBY
04/12/2014, 14h20
casefayere

Citation:

n'oublie pas d'installer sous windows la font: C39HrP48DhTt

il n'est pas question que je charge quoi que ce soit qui ne me soit pas utile, je vais encore vérifier avec ce que tu me dis et en regardant si je peux améliorer ce code mais sans garantie de nouvelle réponse si ça m'oblige à charger ta police.
08/12/2014, 19h33
hocss

Bonsoir,
désolé, je n'ai pas cherché à vous obliger à installer quoi que ce soit, j'ai seulement cherché à t'expliquer qu'il fallait installer la police nécessaire pour avoir l'affichage recherché.
Merci pour l'effort et le vouloir aider.
Cordialement
HBY
:P