Ecrire à l'ntersection de ligne et colonne
Résolu
Erock
-
Erock49 Messages postés 10 Statut Membre -
Erock49 Messages postés 10 Statut Membre -
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
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
A voir également:
- Ecrire à l'ntersection de ligne et colonne
- Déplacer colonne excel - Guide
- Partage de photos en ligne - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Ecrire en gras sur whatsapp - Guide
35 réponses
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
Mais j'ai besoin d'activer la feuille car des programmes précédents se font sur d'autres feuilles
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
si tu active ton formulaire la feuille est figé
le mieux c d'ajouter un bouton ajout commande
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 ...
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 ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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?
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?
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 :/
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 ?
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 ?
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
J'ai rajouté deux autres noms de produits, et pour ces deux là ca ne marche pas
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 ?
Bref, merci beaucoup !
Dernière petite question : sais tu comment on fait pour ouvrir une interface VBA sans ouvrir de feuille excel ?
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
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
