XL 2019 Cells

[Guismo33]

Bonjour à tous,

Je voudrais récupérer la valeur d'une cellule pour l'intégrer dans la formule n=active.sheets.cells(y,18)
Cells(2,n)=Cells(2,n)+1
Pourriez vous m'aider svp



Bien à vous

 

[Compte Supprimé 979]

Bonjour,

Il faut simplement utiliser les bonnes instruction 🤔

n=Activesheet.cells(y,18)

 

[Staple1600]

Bonjour le fil

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

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

 

[Guismo33]

Bonjour le fil

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

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

Bonjour,

voici la formule complete :

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
Cells(x, n) = Cells(x, n) + 1
End With
x = x + 1
y = y + 3
Loop

donne le resultat sur 2 lignes aprés la macro s'arrêt et m'affiche ceci :

merci à vous

 

[Compte Supprimé 979]

Bonjour Guismo33,

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

 

[Guismo33]

Bonjour Guismo33,

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

Bonjour,

merci pour votre aide , le voici :

 

[Compte Supprimé 979]

Re,

Qu'est-ce que vous voulez faire exactement 🤔

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 🙄

@+

 

[Guismo33]

Re,

Qu'est-ce que vous voulez faire exactement 🤔

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 🙄

@+

re,

ah ok je viens de voir, aurez t'il une formule complementaire pour lui dire que quand c vide passe la boucle?

 

[patricktoulon]

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

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

 

[Guismo33]

Je vous remercie pour votre aide, je ne suis pas fort en VBA mais j'essaie, en vous remerciant tous.

bonne journée.

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

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

merci, c se que je cherchais