Ecrire à l'ntersection de ligne et colonne

c koi ton lien?

tiens ceci peut interesser

i = InputBox("a quel ligne souhaitez vous ecrire?")
j =InputBox("a quel colonne souhaitez vous ecrire?")

Message = InputBox("que souhaitez vous ecrire?")
Range((j) & (i)).Value = Message

Rebonjour et bonne année :D :

Le lien c'était une image mais le lien n'est pas bon.

moiced59, j'ai essayé, mais il aime pas la dernière ligne de code

Mais il aime pas la dernière ligne du programme : Range((j) & (i)).Value = Message

:/

Et ce programme n'interrogera que les noms de colonnes genre A, B, ZA... ?

Je remets un lien de l'image en espérant que ca marche :

http://img43.imageshack.us/img43/9756/sanstitremn.jpg

Oui je l ai modifié un peu je te donne le new

ligne:
i = InputBox("a quel ligne souhaitez vous ecrire?")
If IsNumeric(i) Then
Else
MsgBox "Vous devez indiquer une ligne au format numerique"
GoTo ligne
End If

colonne:
j = InputBox("a quel colonne souhaitez vous ecrire?")
If IsNumeric(j) Then
MsgBox "Vous devez indiquer une colonne au format texte"
GoTo colonne
End If

Message = InputBox("que souhaitez vous ecrire?")
Range((j) & (i)).Value = Message

Peut on dire:

'entre le nom du produit' >> ca trouve la ligne ou il y a ce produit

'entrez le nom de la semaine' >>> ca trouve la colonne ou il y a la semaine

Et apres écriture dans cette case.

Ca éviterait de chercher la ligne et la colonne.

Merci encore ;)

oui c possible!!!
il faut modifier un peu le code comment se presente ton fichier explique moi bien kon ne recommence pas a chaque fois

Ok : donc

Un utilisateur désire passer une commande d'un produit à une certaine semaine:

Donc dans un tableau on retrouve dans une colonne les noms de produits et sur une ligne les semaines (1 à 52)

Et je voudrais que par l'interface VBA on interroge l'utilisateur sur la commande qu'il désir faire :
on lui demande donc le produit qu'il veut commander (donc ca trouve la ligne du tableau)
on lui demande la semaine (ca trouve la colonne) et donc dans la cellule correspondante l'utilisateur entre la quantité de la commande qu'il désire faire.

J'avais essayé les fonctions intersect et Vlookup (solutions trouvées à des problèmes similaires sur le forum) mais vu que je ne suis pas calé en VBA ca ne marchait pas.

Désolé je me suis mal exprimé :/ .

voila

saisie = InputBox("quel nom de produit recherchez vous?")
saisie2 = Val(InputBox("quel numero de semaine recherchez vous?"))

y = Worksheets("feuil1").Cells(1, "A").End(xlDown).Row + 1
i = 1

Do Until i = y
If saisie = Cells(i, 1).Value Then
Z = i
GoTo b
Else
i = i + 1
End If
Loop
If i = y Then
MsgBox "aucune concordance pour le produit de trouvé "
Exit Sub
End If
b:
c = 2
Do Until c = 52
If saisie2 = Cells(Z, c).Value Then
MsgBox "Ligne trouvé"
Cells(Z, c).Select
Exit Sub
Else
c = c + 1
End If
Loop

If c = 30 Then
MsgBox "aucune concordance pour la semaine de trouvée "
Exit Sub
End If

juste une petite modif le c de la fin c pas 30 mais 52

La cellule qui fait l'intersection des deux données c'est bien Cells(z, C) ?

Sinon le programme m'affiche toujours la msgbox: MsgBox ("aucune concordance pour la semaine de trouvée ")

Est ce qu'il faudrait définir C comme tu as défini Y (y = Worksheets("feuil1").Cells(1, "A").End(xlDown).Row + 1) en remplaçant par les termes qui conviennent ?

Merci encore pour ton aide en tout cas !

bah vu ton explication je t explique ce que fais le programme

il compte d 'abord combien de produit tu as ?
puis:
il cherche si ta saisie = a un des produits si oui il regarde ds la meme ligne et regarde colonne par colonne si il trouve le numero de semaine

pour t colonne pas besoin de les numeroté c peut etre 53 pas 52 si ta 1ere colonne c tes nom de produit

MMMMMMmmm

En tout cas il me met toujours la msgbox :/
Et il ne met jamais celle comme quoi il a touvé la ligne :/

poste ton fichier

Comment je fais ? :s

va sur cijoint.fr

http://www.cijoint.fr/cjlink.php?file=cj201001/cijowWvD0m.xlsm

Ah je comprend mieux !!!!!

ok le code né pas bon je croyais que tu voulais la colonne ou etait ecris 52 par exemple mais c pas ca g compris je fais la modif

ton formulaire fou la merde!!
car tu ne peux pas selectionné une cellule si formulaire ouvert supprime le

Worksheets("Feuil1").Activate

saisie = InputBox("quel nom de produit recherchez vous?")
h:
saisie2 = Val(InputBox("quel numero de semaine recherchez vous?")) + 1
If saisie2 > 52 Or saisie < 1 Then
MsgBox "saisie interdite!!! veuillez recommencer"
GoTo h
End If
y = Worksheets("feuil1").Cells(4, "A").End(xlDown).Row + 1
i = 4

Do Until i = y
If saisie = Cells(i, 1).Value Then
Cells(i, saisie2).Activate
Exit Sub
Else
i = i + 1
End If
Loop
If i = y Then
MsgBox "aucune concordance trouvé "
Exit Sub
End If

Ok ca marche impec ! Merci beaucoup !

Dernière question si je veux écrire dans cette case par le biais d'une inputbox je fais comment ?

bah c ce que je viens de faire !!!!

il faut virer ton formulaire et mettre unne inputbox