problème avec cells

Version imprimable

problème avec cells

bonjour tout le monde.

je sollicite de l'aide concernant une macro que je suis en train de faire sur excel. j'ai un problème. en effet je cherche à écrire dans une cellule d'une feuille (ici "sgp") depuis les coordonnées d'une cellule d'une autre feuille. j'aurais donc besoin d'utiliser cells qui permet d'utiliser les coordonnées ligne et colonne mais le problème c'est que je n'y arrive pas. voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Private Sub SOL_Click() With Selection.Font .ColorIndex = xlAutomatic .TintAndShade = 0 End With With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 49407 .TintAndShade = 0 .PatternTintAndShade = 0 End With Selection.Font.Bold = True ActiveCell.FormulaR1C1 = "SOL" adress = ActiveCell.Row F4 = Int((adress - 6) / 4) Na = adress - 6 - F4 * 4 Nam = ActiveSheet.Cells(adress - Na, 1).Value dat = ActiveCell.Column datt = dat - 2 td = dat + 1 For j = 0 To 19 If tableau(0, j) = Nam Then ini = tableau(1, j) End If Next MsgBox (ini) Worksheets("sgp").Range(Cells(td, 3)) = ini MsgBox (ini) End Sub
Worksheets("sgp").Range(Cells(td, 3)) = ini pose problème et ne fonctionne pas. il me sort une erreur. si je mets juste Worksheets("sgp").Cells(td, 3) = ini le code tourne mais ne fonctionne pas (je ne retrouve pas ini dans sgp). si j'utilise un range("C3") par exemple ça marche cependant j'aimerais utiliser les coordonnées numériques. j'ai aussi utilisé quelques variantes comme Worksheets("sgp").Range(worksheets.Cells(td, 3)) = ini sans succès.

je me suis aussi demandé si ça ne venait pas du fait que j'y suis allé un peu bourrin en écrivant ce code dans feuille 1 pour envoyer une variable vers sgp. j'ai donc écrit ,dans un module 2, la ligne qui permet d'envoyer la variable vers sgp et j'ai fait appel à cette fonction dans mon code mais le résultat reste identique: ça ne marche pas. (voici le code de la fonction placé dans le module 2)
Code:

1 2 3 4 5 Function sol(td, ini) Worksheets("sgp").range(Cells(td, 3)) = ini End Function
j'ai bien évidement testé pas mal de variantes pour la fonction aussi mais rien à faire.
je suis donc à la recherche de pistes.
merci d'avance

01/08/2018, 20h02
Transitoire
Bonsoir,
je sais pas si ça va vous aller. Je pense que vous pouvez ainsi trouver les correspondances
Je me positionne sur une feuille et le code prend à la fois l'adresse de la cellule active et sa valeur(si necessaire?) et transmet sur une autre page la valeur, dans la cellule correspondante en adresse.
Code:

1 2 3 4 5 6 7 Sub test() With ActiveSheet Adresse = ActiveCell.Address AdValeur = ActiveCell.Value End With Sheets("Feuil2").Range(Adresse).Value = AdValeur End Sub
cordialement 8-)
01/08/2018, 20h31
antoine.

bonjour, merci pour votre réponse. malheureusement c'est pas vraiment ce que je cherche. en fait j'ai besoin d'avoir les lignes et en colonnes en valeur numérique car d'une feuille a l'autre les coordonnées des cellules ne seront pas identiques et suivront quelque chose de linaire. en gros la variable dans la cellule a la cordonnées ligne 2 colonne 3 vas aller sur une autre feuille mais en ligne 4 colonne 6 par exemple cependant derrière c'est pas moi qui dois dire au programme d'aller en B7 par exemple. c'est lui qui, en fonction des cellule libre s'adapte. mais justement comme c'est linaire, je peux faire deux trois calcule simple pour anticipé la prochaine cellule. mais comme c'est du calcule, il me faut forcément des valeurs numériques et non des B7 ou A3. d'où le fait que je persiste a utiliser cells ^^
01/08/2018, 22h52
clementmarcotte

Bonjour

Citation:

d'où le fait que je persiste a utiliser cells ^^

Il faut juste le faire de la bonne manière. ;)

Code:

Worksheets("sgp").Cells(td, 3) = ini

Parce que Cells(ligne, colonne) est déjà un objet range.
02/08/2018, 01h52
antoine.

rebonjour,

malheureusement ça fais partie des variantes que j'ai essayé :( et, même si le code ne renvoi pas d'erreur, la cellule cible reste malgré tout vide. après la cellule cible est en faite une fusion de deux cellules donc peut-être que ça joue mais avec des range("A1") en indiquant la première cellule ça marche donc j'ai supposé , et peut-être a tort justement, que si j'indique à cells les coordonnées de la première cellule bah ça marcherai aussi. mais visiblement non.
02/08/2018, 06h41
Qwazerty

Citation:

Envoyé par antoine.

rebonjour,

malheureusement ça fais partie des variantes que j'ai essayé :( et, même si le code ne renvoi pas d'erreur, la cellule cible reste malgré tout vide. après la cellule cible est en faite une fusion de deux cellules donc peut-être que ça joue mais avec des range("A1") en indiquant la première cellule ça marche donc j'ai supposé , et peut-être a tort justement, que si j'indique à cells les coordonnées de la première cellule bah ça marcherai aussi. mais visiblement non.

Pourtant c'est le cas, si la cellule fusionnée va de C3 à F8, tu dois inscrire la valeur dans C3.
As tu contrôler le contenu de Td (visiblement 1 colonne après la cellule active?)

++
Qwaz
02/08/2018, 06h56
Theze
Bonjour,

Je contrôlerai déjà si la condition est vrai au moins une fois dans la boucle avec un MsgBox :
Code:

1 2 3 4 5 6 7 8 9 10 11 For j = 0 To 19 If tableau(0, j) = Nam Then ini = tableau(1, j) MsgBox "Valeur de ini dans la boucle : " & ini End If Next
La proposition de Clément (que je salut au passage) ne peut que marcher, je rajouterai juste Value :
Code:

1 2 Worksheets("sgp").Cells(td, 3).Value = ini
mais je contrôlerai aussi la valeur de "td" car il se peut que la valeur de ini soit bien inscrite dans la feuille "sqp" mais pas dans la cellule à laquelle tu pense !
02/08/2018, 08h43
Menhir
Citation:
Envoyé par antoine.

Code:

1 2 3 4 dat = ActiveCell.Column td = dat + 1 MsgBox (ini) Worksheets("sgp").Range(Cells(td, 3)) = ini
C'est normal puisque tu indiques à VBA que tu veux faire une zone de cellule (Range) dans la feuille "sgp" en mettant dedans une cellule de la feuille active (Cells sans indication de parent) alors que la feuille active n'est sans doute pas "sgp" (sinon, le Worksheet de début serait inutile).
Comme c'est virtuellement impossible, VBA ne comprend pas et balance une erreur.

même si le code ne renvoi pas d'erreur, la cellule cible reste malgré tout vide. après

Citation:

la cellule cible est en faite une fusion de deux cellules donc peut-être que ça joue

On ne le répètera jamais assez : la fusion, c'est [voix gutturale] le MAAAAAL. A éviter autant que possible, d'autant qu'il y a souvent d'autres solutions.

Citation:

mais avec des range("A1") en indiquant la première cellule ça marche donc j'ai supposé , et peut-être a tort justement, que si j'indique à cells les coordonnées de la première cellule bah ça marcherai aussi. mais visiblement non.

Fourni les données de ton problème :
- Quelles sont les cellules fusionnées ?
- Quelle cellule veux-tu renseigner ?
- Quelle est la valeur de la variable td ?
02/08/2018, 17h16
antoine.

rebonjour,

merci beaucoup ça à finalement marché, j'ai défusionné les cellules pour les fusionner à nouveau allez savoir pourquoi ça marche mieux maintenant... (je sais c'est le mal la fusion de cellule mais je ne fais que suivre un cahier des charges ^^ ) et en effet c'est bien Worksheets("sgp").Cells(td,3) = ini qui à marché merci de vos réponses en tout cas c'était vachement instructif :)