VBA : Integrerer des variable en coordonée "cells" et "range&quot Fermé

Question

Bonsoir cher communauté !

Mon souhait est un système qui permet de retrouver les valeurs supérieurs à Zéro dans le tableau de droite pour les envoyer dans celui de gauche au même emplacement.
(Au départ, au lieu du Zéro, je mettais "", mais, pour le système =si(cellule>0 il me mettais vrai ... )

D'origine, c'était pour créer un résolveur de Sudoku auquel les chiffres trouvés devaient être envoyé afin de trouver les suivants.

Je pense être très proche de la fin et il me reste une dernière étape à résoudre, c'est de faire fonctionner cela :

Private Sub CommandButton1_Click()Dim NumLigne As Integer, NumColonne As Integer, Chiffre As IntegerCells(32, 14) = NumLigneNumColonne = 32Do While Cells(14, NumColonne) = "KO"NumColonne = NumColonne + 1LoopCells(NumLigne, NumColonne).Value = ChiffreRange(Cells(NumLigne, NumColonne - 30)) = ChiffreEnd Sub

Ce que le VBA refuse, c'est ça :
Cells(NumLigne, NumColonne).Value = Chiffre

Merci d'avance pour vos réponses!

ccm81 · Answer

Bonjour

un pb (au moins) avec NumLigne
NumLigne n'est pas initialisé donc vaut 0 et cells(0,xx) vba n'aime pas

Cdlmnt

EXCEL-lent · Answer

Bonsoir,

Merci de votre venu !

Mon souhait au sujet de NumLigne est qu'il est la valeur de Cells(32,14).
Cela n'est t'il donc pas possible ? :(

Selon vous, comment procéderiez vous ?

Cordialement

ccm81 · Answer

Cells(32, 14) = NumLigne
doit devenir
 NumLigne = Cells(32, 14) 

Cdlmnt

ccm81 · Answer

oui, si c'est Chiffre qui prend la valeur de Cells(NumLigne, NumColonne)
donc 
Chiffre = Cells(NumLigne, NumColonne)

Cdlmnt

EXCEL-lent · Answer

ça ne fonctionne pas :(

Mais de manière général, dans d'autres cas, c'est le fait de mettre des variables dans les coordonnées du " Cells " , d'où le titre de la publication :p

Cordialement

ccm81 · Answer

Mais de manière général, dans d'autres cas, c'est le fait de mettre des variables dans les coordonnées du " Cells " , d'où le titre de la publication
Pas du tout, tu peux mettre des variables aussi bien dans 
Cells(ligne,colonne) ligne et colonne étant des entiers
que dans 
Range(colonne & ligne) colonne est une lettre et ligne un entier

Si 
NumLigne prend la valeur de Cells(32,14) 
et 
Chiffre la valeur de Cells(NumLigne, NumColonne).Value
Ton code devrait être
Private Sub CommandButton1_Click()
Dim NumLigne As Integer, NumColonne As Integer, Chiffre As Integer
NumLigne = Cells(32, 14)
NumColonne = 32
Do While Cells(14, NumColonne) = "KO"
  NumColonne = NumColonne + 1
Loop
Chiffre = Cells(NumLigne, NumColonne).Value
Range(Cells(NumLigne, NumColonne - 30)) = Chiffre
End Sub
Si ça ne donne pas le résultat souhaité c'est que le pb est ailleurs

Cdlmnt

ccm81 · Answer

Quand tu es en erreur (surlignage jaune) dans l’éditeur vba, tu passes le curseur sur chacune des variables NumLigne, NumColonne et Chiffre pour voir leur valeur, ça devrait te donner une indication

Cdlmnt

VBA : Integrerer des variable en coordonée "cells" et "range&quot

7 réponses

Discussions similaires