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...