Copier coller une collonne dont le nom de champs est saisi
benjamin
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour les amis !
Je suis confronté à un problème en VBA pour lequel je sollicite votre appui technique. J'ai un fichier nommé tampon et un autre nommé APP DNB. Je désire réaliser une macro me permettant de copier la colonne (d'une feuille du fichier tampon) dont le nom de champs est saisi dans un inputbox et la coller dans une feuille du classeur APP DNB.
Après avoir exécuté la syntaxe ci-dessous, cela ne me donne aucun résultat ni de message d'erreur. S'il vous plait aidez-moi les amis !!
Voici la syntaxe :
Je suis confronté à un problème en VBA pour lequel je sollicite votre appui technique. J'ai un fichier nommé tampon et un autre nommé APP DNB. Je désire réaliser une macro me permettant de copier la colonne (d'une feuille du fichier tampon) dont le nom de champs est saisi dans un inputbox et la coller dans une feuille du classeur APP DNB.
Après avoir exécuté la syntaxe ci-dessous, cela ne me donne aucun résultat ni de message d'erreur. S'il vous plait aidez-moi les amis !!
Voici la syntaxe :
Sub cum()
Dim ip
Dim j
ip = InputBox("Veuillez renseigner un champs! " & Chr(10) & "Par Exemple : PLF 2013", "CHOIX D'UN CHAMPS!!!")
For j = 1 To 1000
If Workbooks("Tampon.xlsx").Worksheets("Dep").Cells(1, j).Value = "ip" Then
j = CInt(j)
Workbooks("Tampon.xlsx").Worksheets("Dep").Columns("j").Copy Workbooks("APP DNB.xlsm").Worksheets("Feuil25").Range("B1")
Else
msgbx = ("ip& n'est pas un champs du classeur tampon")
End If
Next j
End sub
7 réponses
-
Bonjour,
ip est une variable :Dim ip
Tu lui affectes une valeur :ip = InputBox("Veuillez renseigner un champs! " & Chr(10) & "Par Exemple : PLF 2013", "CHOIX D'UN CHAMPS!!!")
Mais après tu t'en sert mal. La syntaxe "ip" ne fait pas référence à ta variable ip, mais au texte "ip".
Donc, dans :If Workbooks("Tampon.xlsx").Worksheets("Dep").Cells(1, j).Value = "ip" Then
vire les guillemets autour de ip pour obtenir :If Workbooks("Tampon.xlsx").Worksheets("Dep").Cells(1, j).Value = ip Then
Cordialement,
Franck -
Merci Mon frère!
Je vois. ça marche. seulement, il masque la colonne de destination (B1). en plus, une fois que je saisi par exemple PLA 2013, il devrait rechercher et copier toute la colonne ayant pour nom de champs PLA 2013. Ici ce n'est pas le cas, mais il copie toujours la même colonne de numéro J du fichier tampon. Il s'intéresse donc pas au texte saisi.
Aide moi ,on frère! -
Merci Pijaku!
Ça marche à merveille.
Par contre j'ai prévu l'affichage de ce message "ip& n'est pas un champs du classeur tampon" si le texte saisi dans l'inputbox ne correspond pas à aucun titre de champs du fichier tampon. Mais cela ne fonctionne pas. En effet, pas de message d'erreur ni de résultat après avoir saisi expressément un texte ne faisant pas partie des titres de champs.
Je suis vraiment un débutant en VBA. J'ai soif de votre assistance technique. -
Voici la synthaxe!
Sub cum()
Dim ip
Dim j
ip = InputBox("Veuillez renseigner un champs! " & Chr(10) & "Par Exemple : PLF 2013", "CHOIX D'UN CHAMPS!!!")
For j = 1 To 1000
If Workbooks("Tampon.xlsx").Worksheets("Dep").Cells(1, j).Value = ip Then
j = CInt(j)
Workbooks("Tampon.xlsx").Worksheets("Dep").Columns(j).Copy Workbooks("APP DNB.xlsm").Worksheets("Feuil25").Range("B1")
Else
msgbx = (ip & " n'est pas un champs du classeur tampon")
End If
Next j
End sub -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
1) c'est le titre des champs
2) c'est un texte saisi ki doit figurer dans la liste des champs de la feuille du classeur
3)msgbox (cè une erreur)
4)je ne colle toujours pas dans la même colonne. Puisque je suis à la phase d'essai, je modifie la référence de la plage a chaque essai.
.
Après avoir rectifié le msgbox , ça marche. Seulement j'ai un problème de boucle folle. C'est à dire le message d'erreur s'affiche sans cesse; et ce, même si la valeur renseignée dans le inputbox est un titre de champs.
Merci de t'intéresser à ma préoccupation-
Bonjour,
Essaye ceci :Sub cum() Dim ip As String Dim rngTrouve As Range ip = InputBox("Veuillez renseigner un champs! " & Chr(10) & "Par Exemple : PLF 2013", "CHOIX D'UN CHAMPS!!!") Set rngTrouve = Workbooks("Tampon.xlsx").Worksheets("Dep").Rows(1).Cells.Find(ip, lookat:=xlwhole) If rngTrouve Is Nothing Then msgbx = (ip & " n'est pas un champs du classeur tampon") Else Workbooks("Tampon.xlsx").Worksheets("Dep").Columns(j).Copy Workbooks("APP DNB.xlsm").Worksheets("Feuil25").Range("B1") End If End sub
-
-
Merci!!
Permettez moi de savoir ce que represente j dansWorkbooks("Tampon.xlsx").Worksheets("Dep").Columns(j).Copy Workbooks("APP DNB.xlsm").Worksheets("Feuil25").Range("B1")
?-
j est une erreur.....
Pardon!Sub cum() Dim ip As String Dim rngTrouve As Range Dim Col As Integer ip = InputBox("Veuillez renseigner un champs! " & Chr(10) & "Par Exemple : PLF 2013", "CHOIX D'UN CHAMPS!!!") Set rngTrouve = Workbooks("Tampon.xlsx").Worksheets("Dep").Rows(1).Cells.Find(ip, lookat:=xlwhole) If rngTrouve Is Nothing Then msgbx = (ip & " n'est pas un champs du classeur tampon") Else Col = rngTrouve.Column Workbooks("Tampon.xlsx").Worksheets("Dep").Columns(Col).Copy Workbooks("APP DNB.xlsm").Worksheets("Feuil25").Range("B1") End If End sub
-
-
Merci!
le message d'erreur s'affiche quand il y a lieu.
Par contre lorsque le texte saisi est un titre de champs, la copie ne s'exécute pas.
je reçois dans ce cas un message d'erreur incompatibilé de type. le debogage souligne la ligne Workbooks("Tampon.xlsx").Worksheets("Dep").Columns(Col).Copy Workbooks("APP DNB.xlsm").Worksheets("Feuil25").Range("B1")
