numero client; nom client;code DIM; adresse client; telephone; chiffres
d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur
je voudrai au fait avoir un message box en cliquant sur un bouton de
commande la feuille 1 qui m'indique entrez le numero client, entrez le code
DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme
tableau sur un autre classeur en allant chercher toutes les valeurs
correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois
conditions.
c'est une sorte de requetes
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Jean,
Si tu veux bien répondre à ces questions ... Jean.
Est-ce que le numéro client est unique .... c'est-à-dire que chaque numéro représente seulemenent un client ... aucun doublon possible ?
La Feuille où sont présentement tes données s'appele comment ?
Ton numéro client est dans quelle colonne ? A ?
Quel le nom de ton autre classeur où tu veux envoyer tes informations ?
Quel est le nom de la feuille de cet autre classeur ?
à quel endroit précis dans cette feuille, les données doivent être inscrites ? à partir de A1 ?
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
mercxi de votre aide
Bonjour Jean,
Si tu veux bien répondre à ces questions ... Jean.
Est-ce que le numéro client est unique .... c'est-à-dire que chaque numéro représente seulemenent un client ... aucun
doublon possible ?
La Feuille où sont présentement tes données s'appele comment ?
Ton numéro client est dans quelle colonne ? A ?
Quel le nom de ton autre classeur où tu veux envoyer tes informations ?
Quel est le nom de la feuille de cet autre classeur ?
à quel endroit précis dans cette feuille, les données doivent être inscrites ? à partir de A1 ?
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
4C8DD539-9A7C-4EA9-8E69-27175525679E@microsoft.com...
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres
d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur
je voudrai au fait avoir un message box en cliquant sur un bouton de
commande la feuille 1 qui m'indique entrez le numero client, entrez le code
DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme
tableau sur un autre classeur en allant chercher toutes les valeurs
correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois
conditions.
c'est une sorte de requetes
Si tu veux bien répondre à ces questions ... Jean.
Est-ce que le numéro client est unique .... c'est-à-dire que chaque numéro représente seulemenent un client ... aucun doublon possible ?
La Feuille où sont présentement tes données s'appele comment ?
Ton numéro client est dans quelle colonne ? A ?
Quel le nom de ton autre classeur où tu veux envoyer tes informations ?
Quel est le nom de la feuille de cet autre classeur ?
à quel endroit précis dans cette feuille, les données doivent être inscrites ? à partir de A1 ?
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
mercxi de votre aide
michdenis
Bonjour Jean,
Attache la procédure suivante à ton bouton dans ta feuille où sont tes données :
Dans la procédure, tu dois adapter le nom des feuilles et du classeur selon ton application. Pour le nom du classeur, tu dois saisir l'extension du fichier .xls avec le nom du fichier Workbooks("NomDuClasseur.xls")
Il est obligatoire que tes 2 classeurs soient ouverts.
La syntaxe risque d'être difficile à comprendre... cela peut faire l'objet d'une question... `a moins d'avoir un bon livre sur le sujet. L'aide d'excel est nulle sur le sujet.
'------------------------------------------------------ Sub TransFert_De_Données()
'Déclaration des variables. Dim Rg As Range Dim NoClient As Variant, NoLig As Variant
On Error Resume Next
'une boucle pour déterminer un numéro client 'valide c'est à dire qui existe dans la 'la colonne A de la feuil1 de ce classeur. '------------------------------ Do Err = "" NoClient = Application.InputBox _ ("Entrer le numéro du client.", _ "Numéro Client") If NoClient = "Faux" Then Exit Sub End If
With ThisWorkbook.Worksheets("Feuil1") NoLig = WorksheetFunction.Match _ (CLng(NoClient), .Range("A:A"), 0) End With If NoLig = "" Then MsgBox "Ce numéro client n'existe pas." & _ "Choisissez un autre numéro." Err = 0 End If
Loop Until NoLig <> "" '------------------------------
'NbLig représent la ligne où on a trouvé le bon 'Numéro client...toutes les informations sont sur 'la même ligne mais dans des colonnes à côté ...
'Où copier les données 'Nouveau classeur nommé Classeur3 sur la 'feuil1 de celui-ci 'Les données débuteront en ligne 2 'Ligne 1 réservé aux étiquettes. '----------------------------- With Workbooks("Classeur3") With .Worksheets("Feuil1") Set Rg = .Range("A" & .Range("A65536") _ .End(xlUp)(2).Row) End With End With '-----------------------------
'La copie des données eux-mêmes. 'Rg représente la première cellule disponible 'dans le nouveau classeur '----------------------------- With ThisWorkbook.Worksheets("Feuil1") Rg.Value = .Cells(NoLig, "A") Rg(, 2).Value = .Cells(NoLig, "B") Rg(, 3).Value = .Cells(NoLig, "C") Rg(, 4).Value = .Cells(NoLig, "D") End With '----------------------------- Set Rg = Nothing
End Sub '------------------------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
mercxi de votre aide
Bonjour Jean,
Attache la procédure suivante à ton bouton dans ta feuille où sont tes données :
Dans la procédure, tu dois adapter le nom des feuilles et du classeur selon ton application. Pour le nom du classeur, tu
dois saisir l'extension du fichier .xls avec le nom du fichier Workbooks("NomDuClasseur.xls")
Il est obligatoire que tes 2 classeurs soient ouverts.
La syntaxe risque d'être difficile à comprendre... cela peut faire l'objet d'une question... `a moins d'avoir un bon
livre sur le sujet. L'aide d'excel est nulle sur le sujet.
'------------------------------------------------------
Sub TransFert_De_Données()
'Déclaration des variables.
Dim Rg As Range
Dim NoClient As Variant, NoLig As Variant
On Error Resume Next
'une boucle pour déterminer un numéro client
'valide c'est à dire qui existe dans la
'la colonne A de la feuil1 de ce classeur.
'------------------------------
Do
Err = ""
NoClient = Application.InputBox _
("Entrer le numéro du client.", _
"Numéro Client")
If NoClient = "Faux" Then
Exit Sub
End If
With ThisWorkbook.Worksheets("Feuil1")
NoLig = WorksheetFunction.Match _
(CLng(NoClient), .Range("A:A"), 0)
End With
If NoLig = "" Then
MsgBox "Ce numéro client n'existe pas." & _
"Choisissez un autre numéro."
Err = 0
End If
Loop Until NoLig <> ""
'------------------------------
'NbLig représent la ligne où on a trouvé le bon
'Numéro client...toutes les informations sont sur
'la même ligne mais dans des colonnes à côté ...
'Où copier les données
'Nouveau classeur nommé Classeur3 sur la
'feuil1 de celui-ci
'Les données débuteront en ligne 2
'Ligne 1 réservé aux étiquettes.
'-----------------------------
With Workbooks("Classeur3")
With .Worksheets("Feuil1")
Set Rg = .Range("A" & .Range("A65536") _
.End(xlUp)(2).Row)
End With
End With
'-----------------------------
'La copie des données eux-mêmes.
'Rg représente la première cellule disponible
'dans le nouveau classeur
'-----------------------------
With ThisWorkbook.Worksheets("Feuil1")
Rg.Value = .Cells(NoLig, "A")
Rg(, 2).Value = .Cells(NoLig, "B")
Rg(, 3).Value = .Cells(NoLig, "C")
Rg(, 4).Value = .Cells(NoLig, "D")
End With
'-----------------------------
Set Rg = Nothing
End Sub
'------------------------------------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
4C8DD539-9A7C-4EA9-8E69-27175525679E@microsoft.com...
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres
d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur
je voudrai au fait avoir un message box en cliquant sur un bouton de
commande la feuille 1 qui m'indique entrez le numero client, entrez le code
DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme
tableau sur un autre classeur en allant chercher toutes les valeurs
correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois
conditions.
c'est une sorte de requetes
Attache la procédure suivante à ton bouton dans ta feuille où sont tes données :
Dans la procédure, tu dois adapter le nom des feuilles et du classeur selon ton application. Pour le nom du classeur, tu dois saisir l'extension du fichier .xls avec le nom du fichier Workbooks("NomDuClasseur.xls")
Il est obligatoire que tes 2 classeurs soient ouverts.
La syntaxe risque d'être difficile à comprendre... cela peut faire l'objet d'une question... `a moins d'avoir un bon livre sur le sujet. L'aide d'excel est nulle sur le sujet.
'------------------------------------------------------ Sub TransFert_De_Données()
'Déclaration des variables. Dim Rg As Range Dim NoClient As Variant, NoLig As Variant
On Error Resume Next
'une boucle pour déterminer un numéro client 'valide c'est à dire qui existe dans la 'la colonne A de la feuil1 de ce classeur. '------------------------------ Do Err = "" NoClient = Application.InputBox _ ("Entrer le numéro du client.", _ "Numéro Client") If NoClient = "Faux" Then Exit Sub End If
With ThisWorkbook.Worksheets("Feuil1") NoLig = WorksheetFunction.Match _ (CLng(NoClient), .Range("A:A"), 0) End With If NoLig = "" Then MsgBox "Ce numéro client n'existe pas." & _ "Choisissez un autre numéro." Err = 0 End If
Loop Until NoLig <> "" '------------------------------
'NbLig représent la ligne où on a trouvé le bon 'Numéro client...toutes les informations sont sur 'la même ligne mais dans des colonnes à côté ...
'Où copier les données 'Nouveau classeur nommé Classeur3 sur la 'feuil1 de celui-ci 'Les données débuteront en ligne 2 'Ligne 1 réservé aux étiquettes. '----------------------------- With Workbooks("Classeur3") With .Worksheets("Feuil1") Set Rg = .Range("A" & .Range("A65536") _ .End(xlUp)(2).Row) End With End With '-----------------------------
'La copie des données eux-mêmes. 'Rg représente la première cellule disponible 'dans le nouveau classeur '----------------------------- With ThisWorkbook.Worksheets("Feuil1") Rg.Value = .Cells(NoLig, "A") Rg(, 2).Value = .Cells(NoLig, "B") Rg(, 3).Value = .Cells(NoLig, "C") Rg(, 4).Value = .Cells(NoLig, "D") End With '----------------------------- Set Rg = Nothing
End Sub '------------------------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
mercxi de votre aide
michdenis
Bonjour Jean,
Dans la procédure que je t'ai envoyé, tu risques d'avoir des problèmes si le numéro client n'est pas un nombre mais un code alphanumérique avec ceci : (CLng(NoClient). Si ton numéro de client n'est pas un nombre enlève Clng() et conserve seulement NoClient .
Clng est une fonction de conversion que tu peux trouver dans l'aide VBA.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
mercxi de votre aide
Bonjour Jean,
Dans la procédure que je t'ai envoyé, tu risques d'avoir des problèmes si le numéro client n'est pas un nombre mais un
code alphanumérique avec ceci : (CLng(NoClient). Si ton numéro de client n'est pas un nombre enlève Clng() et
conserve seulement NoClient .
Clng est une fonction de conversion que tu peux trouver dans l'aide VBA.
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
4C8DD539-9A7C-4EA9-8E69-27175525679E@microsoft.com...
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres
d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur
je voudrai au fait avoir un message box en cliquant sur un bouton de
commande la feuille 1 qui m'indique entrez le numero client, entrez le code
DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme
tableau sur un autre classeur en allant chercher toutes les valeurs
correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois
conditions.
c'est une sorte de requetes
Dans la procédure que je t'ai envoyé, tu risques d'avoir des problèmes si le numéro client n'est pas un nombre mais un code alphanumérique avec ceci : (CLng(NoClient). Si ton numéro de client n'est pas un nombre enlève Clng() et conserve seulement NoClient .
Clng est une fonction de conversion que tu peux trouver dans l'aide VBA.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
mercxi de votre aide
JEAN
j'essaie le programme etje te fait signe si j'ai un probleme merci
"michdenis" wrote:
Bonjour Jean,
Dans la procédure que je t'ai envoyé, tu risques d'avoir des problèmes si le numéro client n'est pas un nombre mais un code alphanumérique avec ceci : (CLng(NoClient). Si ton numéro de client n'est pas un nombre enlève Clng() et conserve seulement NoClient .
Clng est une fonction de conversion que tu peux trouver dans l'aide VBA.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
mercxi de votre aide
j'essaie le programme
etje te fait signe si j'ai un probleme
merci
"michdenis" wrote:
Bonjour Jean,
Dans la procédure que je t'ai envoyé, tu risques d'avoir des problèmes si le numéro client n'est pas un nombre mais un
code alphanumérique avec ceci : (CLng(NoClient). Si ton numéro de client n'est pas un nombre enlève Clng() et
conserve seulement NoClient .
Clng est une fonction de conversion que tu peux trouver dans l'aide VBA.
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
4C8DD539-9A7C-4EA9-8E69-27175525679E@microsoft.com...
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres
d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur
je voudrai au fait avoir un message box en cliquant sur un bouton de
commande la feuille 1 qui m'indique entrez le numero client, entrez le code
DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme
tableau sur un autre classeur en allant chercher toutes les valeurs
correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois
conditions.
c'est une sorte de requetes
j'essaie le programme etje te fait signe si j'ai un probleme merci
"michdenis" wrote:
Bonjour Jean,
Dans la procédure que je t'ai envoyé, tu risques d'avoir des problèmes si le numéro client n'est pas un nombre mais un code alphanumérique avec ceci : (CLng(NoClient). Si ton numéro de client n'est pas un nombre enlève Clng() et conserve seulement NoClient .
Clng est une fonction de conversion que tu peux trouver dans l'aide VBA.
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
J'ai un tableau qui comprend:
numero client; nom client;code DIM; adresse client; telephone; chiffres d'affaires; benefices
tout cela est sur la feuille 1 de mon classeur je voudrai au fait avoir un message box en cliquant sur un bouton de commande la feuille 1 qui m'indique entrez le numero client, entrez le code DIM, et entrer le nom client.
ensuite dès que j'aurai rentré tout ces elèment là; j'aurai donc le meme tableau sur un autre classeur en allant chercher toutes les valeurs correspondant à ce que j'ai rentré dans le message box de la feuille 1.
c'est a dire afficher toutes les valeurs du tableau correspond à mes trois conditions. c'est une sorte de requetes
