Formule vba

Signaler
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Statut
Membre
Dernière intervention
21 mars 2021
-
Messages postés
16507
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 septembre 2021
-
Bonjour a tous,

voici la formule :

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 et la macro s'arrêt et affiche ceci

https://www.cjoint.com/c/KCvgxQ86Z2u
si vous pouviez m'aider svp

bien à vous



Configuration: Windows / Opera 74.0.3911.218

3 réponses

Messages postés
435
Date d'inscription
samedi 7 novembre 2020
Statut
Membre
Dernière intervention
9 septembre 2021
85
Bonjour,

Avant tout, pensez à utiliser les balises de code pour vos exemples. Ici Basic :


Il manque manifestement le point (.) pour rattacher vos objets ou méthodes à la feuilles 'T" lorsque vous utilisez With => .Cells()

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
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Statut
Membre
Dernière intervention
21 mars 2021
2
bonjour,

merci de pouvoir m'aider, je viens de voir que toutes mes celleules ne sont as plaine, d'ou la faute.
peut t'ont rajouter une formule pour lui faire comprendre cette erreur?
Messages postés
16507
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 septembre 2021
3 221
Bonjour

Merci de mettre en pièce jointe le classeur Excel et non une photo qui ne nous sert à rien. d'avance merci. De plus, j'ai un refus de chargement du png...
x,y,n sont des nombres (ici "byte") et non des textes ("string")

pour les cellules vides que veux tu faire: message d'erreur ? passer outre ? autre ????

cordialement