XL 2019 Cells

Staple1600 à dit:

Bonjour le fil

Selon comment on interprète la chose, la syntaxe varie

VB:

Sub testA()
Dim y&
y = 1
Cells(y, 18) = 1
MsgBox Cells(y, 18).Address
MsgBox Cells(2, Cells(y, 18)).Address
[A2] = 5
Cells(2, Cells(y, 18)) = Cells(2, Cells(y, 18)) + 1
MsgBox [A2]
End Sub
Sub testB()
[Y18] = 1
MsgBox [Y18].Address
MsgBox Cells(2, [Y18]).Address
[A2] = 5
Cells(2, [Y18]) = Cells(2, [Y18]) + 1
MsgBox [A2]
End Sub

Cliquez pour agrandir...

BrunoM45 à dit:

Bonjour Guismo33,

Merci de joindre un fichier sans donnée personnelle afin que l'on puisse t'aider correctement

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

Qu'est-ce que vous voulez faire exactement

VB:

n = Cells(y, 18).Value

Récupère une valeur vide à la ligne 12, donc erreur forcément

De plus il serait bien de spécifier l'objet conteneur sur le quel vous travaillez, votre codage n'est absolument pas correcte
Commencez par apprendre les bases avant de vous lancer dans ce genre de chose

@+

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour
il est vrai que le procédé relate une conception bancale
cependant si je m'en tiens a ton code j'ajoute simplement le test de valeur de N

VB:

Dim x As String, y As String, n As String

x = 4
y = 6
Do While y < 21
With Sheets("T")
n = Cells(y, 18).Value
if val(n)>0 then Cells(x, n) = Cells(x, n) + 1
End With
x = x + 1
y = y + 3
Loop

Cliquez pour agrandir...