Ecrire à l'ntersection de ligne et colonne Résolu

Question

Bonjour,

J'ai lu différents sujets concernant ma question mais aucune réponse ne me satisfait...


Je voudrais écrire à l'intersection d'une ligne et d'une colonne :

En selectionnant la colonne et la ligne (par les résultats des textbox (ou listbox à voir si c'est mieux))

Puis écrire dans cette case le résultat d'une autre textbox.

Image :

http://img109.imageshack.us/content.php?page=done



Merci d'avance

moiced59 · Answer

c koi ton lien?

moiced59 · Answer

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

Erock · Answer

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

moiced59 · Answer

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

Erock · Answer

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 ;)

moiced59 · Answer

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

Erock · Answer

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é :/ .

moiced59 · Answer

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

moiced59 · Answer

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

Erock · Answer

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 !

moiced59 · Answer

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

Erock · Answer

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

moiced59 · Answer

poste ton fichier

Erock · Answer

Comment je fais ? :s

moiced59 · Answer

va sur cijoint.fr

Erock49 · Answer

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

moiced59 · Answer

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

moiced59 · Answer

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

Erock49 · Answer

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 ?

moiced59 · Answer

bah c ce que je viens de faire !!!!

il faut virer ton formulaire et mettre unne inputbox

Erock49 · Answer

MM en fait il y a encore des bugs si on fait des demandes successives et que l'on sélectionne une semaine plus grande que celle sélectionnée auparavant, c'est peut-être du au formulaire.


Mais j'ai besoin d'activer la feuille  car des programmes précédents se font sur d'autres feuilles

moiced59 · Answer

Activé la feuille ok mais pas le formulaire

si tu active ton formulaire la feuille est figé

le mieux c d'ajouter un bouton ajout commande

Erock49 · Answer

J'ai mis une textbox pour saisir la quantité de la commande

et j'ai fait textbox.value= Cells(i, saisie2) mais ca ne marche pas.

Euh je vois pas ce que tu veux dire alors pour le formulaire ...

moiced59 · Answer

Bah tu fais apparaitre un formulaire pour activer la macro vire le

Erock49 · Answer

Euhh là je sais pas faire ou vois pas ce que tu veux dire :/

moiced59 · Answer

bah c pas moi qui est fais ca c toi !!!
ya bien un formulaire qui s'affiche sur activation de ta feuille1 c ca qui bloque enleve le et creer un bouton sur feuille et ajoute y le code tu vois ce que je veux dire?

Erock49 · Answer

Ok je vois, mais si tu veux ce petit programme c'est un bout de logiciel que j'ai créé, et le logiciel ca se traduit par plusieurs formulaires :/

moiced59 · Answer

oui mais celui ci y en a pas besoin

Erock49 · Answer

Ok je vois.
Parcontre j'ai encore quelques bug dans le programme, mais j'arrive pas à savoir d'où ca vient.

Sinon à un moment dans ton programme tu mets i=4, c'est parce qu'il n'y a que 4 noms de produits ?

moiced59 · Answer

non c parce que t  nom de produit commence a la ligne 4 vas y c koi les bugg?

Erock49 · Answer

Il affiche aucunue concordance des fois, j'arrive pas à cerner d'où vient le bug...
J'ai rajouté deux autres noms de produits, et pour ces deux là ca ne marche pas

moiced59 · Answer

ok je vais refaire un petit bout ameliorer je le poste apres et tu pourra tester

Erock49 · Answer

Ah c'est bon je viens de résoudre le problème j'avais oublié de changé le nom de la feuille1 mais même en la selectionnant ca marchait pour les anciens produits parceque les noms se trouvaient au même endroit sur la feuille.
Bref, merci beaucoup !


Dernière petite question : sais tu comment on fait pour ouvrir une interface VBA sans ouvrir de feuille excel ?

moiced59 · Answer

je doute que cela soit possible ds le sens ou si tu fais du code vba c pour executer sur une feuille
tiens ce code fonctionne correctement
Sub Bouton1_Clic()
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
End Sub

Erock49 · Answer

Ok, ca marche ;)

Merci beaucoup pour ton aide !

Ecrire à l'ntersection de ligne et colonne

35 réponses

Votre réponse

Newsletters