Bonjour,
Peut-être aurai-je plus de chance avec ce 2ème message.
Voici le code qui ne fonctionne pas et je ne sais pas pourquoi;
Private Sub Worksheet_Change(ByVal Target As Range)
Dim choix
If Intersect(Target, Range("D5")) Is Nothing Then Exit Sub
choix = Application.Match(Target.Value, Sheets("Résultats").Range("e1:e80"),
0)
ça bloque déjà là.
Et pour la suite, je patauge de plus belle, j'aimerais pouvoir copier les
cellules de plusieurs lignes de cette feuille vers la feuille active.
Re, Merci pour la réponse, mais dans cette macro, ça ne sélectionne qu'une cellule en dernière colonne. Quand je dis "si c'est un chiffre ça voulait dire col = Feuil2.[IV1] et là range ne peut pas le lire.
col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre pour cells, est-il possible de faire une cellule de plusieurs cellules
A5:Z5 Le but du jeu est de sélectionner à partir de la colonne A sur une ligne à chercher > If Feuil2.Cells(lig, 1) = Target.Value Then donc lig et jusqu'à une colonne à chercher > col = Feuil2.[IV &lg].End(1).Column pour copier toutes les cellules
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _ lig & ":" & col).Value ' et donc là ça plante
Désolé d'insister.... Merci bonne journée
"Youky" a écrit dans le message de news: O%
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'col est un chiffre For k=1 To col Feuil1.Cells(lg,col) = Feuil2.Cells(lig,col) Next lg = lg + 1
End If Next
Pour Feuil2 ou Feuil1 plus facile d'emploi car si qlq'un renomme les onglets ça plante Ce nom de feuil apparait en fenetre Projet à gauche exemple: Feuil2...(Résultats) tu peux encore changer ce Feuil2 en affichant les propiétées de Feuil2 et l'appeler Résultats 2eme question ....j'avais cru comprendre que tu utilisais une listbox en multiselection Youky "daniel" a écrit dans le message de news: %
Re, J'ai voulu essayer de compléter la macro, mais forcément ça plante. Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n lignes, sur n colonnes. j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
lg = lg + 1
End If Next
Pouvez-vous, encore, jeter un coup d'oeil. Encore merci et bonne journée. Daniel(novice)
Re,
Merci pour la réponse, mais dans cette macro, ça ne sélectionne qu'une
cellule en dernière colonne.
Quand je dis "si c'est un chiffre ça voulait dire col = Feuil2.[IV1] et là
range ne peut pas le lire.
col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire
'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
pour cells, est-il possible de faire une cellule de plusieurs cellules
A5:Z5
Le but du jeu est de sélectionner à partir de la colonne A
sur une ligne à chercher > If Feuil2.Cells(lig, 1) = Target.Value Then
donc lig
et
jusqu'à une colonne à chercher > col = Feuil2.[IV &lg].End(1).Column
pour copier toutes les cellules
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _
lig & ":" & col).Value ' et donc là ça plante
Désolé d'insister....
Merci
bonne journée
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
O%23PllZgYGHA.4884@TK2MSFTNGP02.phx.gbl...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig
Dim col As Range
Dim lg
Dim i
If Target.Address <> "$D$5" Then Exit Sub
If Target.Value = "" Then Exit Sub
lg = Feuil1.[A65536].End(3).Row + 1
For lig = 1 To 80
If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then
col = Feuil2.[IV &lg].End(1).Column
'col est un chiffre
For k=1 To col
Feuil1.Cells(lg,col) = Feuil2.Cells(lig,col)
Next
lg = lg + 1
End If
Next
Pour Feuil2 ou Feuil1 plus facile d'emploi car si qlq'un renomme les
onglets ça plante
Ce nom de feuil apparait en fenetre Projet à gauche
exemple: Feuil2...(Résultats)
tu peux encore changer ce Feuil2 en affichant les propiétées de Feuil2 et
l'appeler Résultats
2eme question ....j'avais cru comprendre que tu utilisais une listbox en
multiselection
Youky
"daniel" <novice@neuf.fr> a écrit dans le message de news:
%23Fat3jfYGHA.4688@TK2MSFTNGP04.phx.gbl...
Re,
J'ai voulu essayer de compléter la macro, mais forcément ça plante.
Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n
lignes, sur n colonnes.
j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig
Dim col As Range
Dim lg
Dim i
If Target.Address <> "$D$5" Then Exit Sub
If Target.Value = "" Then Exit Sub
lg = Feuil1.[A65536].End(3).Row + 1
For lig = 1 To 80
If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then
col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire
'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
lg = lg + 1
End If
Next
Pouvez-vous, encore, jeter un coup d'oeil.
Encore merci et bonne journée.
Daniel(novice)
Re, Merci pour la réponse, mais dans cette macro, ça ne sélectionne qu'une cellule en dernière colonne. Quand je dis "si c'est un chiffre ça voulait dire col = Feuil2.[IV1] et là range ne peut pas le lire.
col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre pour cells, est-il possible de faire une cellule de plusieurs cellules
A5:Z5 Le but du jeu est de sélectionner à partir de la colonne A sur une ligne à chercher > If Feuil2.Cells(lig, 1) = Target.Value Then donc lig et jusqu'à une colonne à chercher > col = Feuil2.[IV &lg].End(1).Column pour copier toutes les cellules
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _ lig & ":" & col).Value ' et donc là ça plante
Désolé d'insister.... Merci bonne journée
"Youky" a écrit dans le message de news: O%
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'col est un chiffre For k=1 To col Feuil1.Cells(lg,col) = Feuil2.Cells(lig,col) Next lg = lg + 1
End If Next
Pour Feuil2 ou Feuil1 plus facile d'emploi car si qlq'un renomme les onglets ça plante Ce nom de feuil apparait en fenetre Projet à gauche exemple: Feuil2...(Résultats) tu peux encore changer ce Feuil2 en affichant les propiétées de Feuil2 et l'appeler Résultats 2eme question ....j'avais cru comprendre que tu utilisais une listbox en multiselection Youky "daniel" a écrit dans le message de news: %
Re, J'ai voulu essayer de compléter la macro, mais forcément ça plante. Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n lignes, sur n colonnes. j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
lg = lg + 1
End If Next
Pouvez-vous, encore, jeter un coup d'oeil. Encore merci et bonne journée. Daniel(novice)
daniel
Re, Non c'était bien, mais j'avais mal lu et mal recopié en plus (d'où mon précédent message).... et ça doit bien recopier toute la ligne, mais cellule par cellule, c'est bien ça ?? Par contre, ça bloque sur cette ligne col = Feuil2.[IV &lg].End(1).Column Toujours ce souci de référence avec des valeurs... Désolé. A+ Daniel
"Youky" a écrit dans le message de news: u9T$
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig as Integer, col As Integer, lg As Integer If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column For k=1 To col Feuil1.Cells(lg,k) = Feuil2.Cells(lig,k) Next k lg = lg + 1 End If Next lig End Sub mon copier collé précédent laisse à désirer là ça doit faire le joint Youky "daniel" a écrit dans le message de news: %
Re, J'ai voulu essayer de compléter la macro, mais forcément ça plante. Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n lignes, sur n colonnes. j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _ lig & ":" & col).Value ' et donc là ça plante lg = lg + 1
End If Next
Pouvez-vous, encore, jeter un coup d'oeil. Encore merci et bonne journée. Daniel(novice)
Re,
Non c'était bien, mais j'avais mal lu et mal recopié en plus (d'où mon
précédent message).... et ça doit bien recopier toute la ligne, mais cellule
par cellule, c'est bien ça ??
Par contre, ça bloque sur cette ligne
col = Feuil2.[IV &lg].End(1).Column
Toujours ce souci de référence avec des valeurs...
Désolé.
A+
Daniel
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
u9T$uBhYGHA.428@TK2MSFTNGP02.phx.gbl...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig as Integer, col As Integer, lg As Integer
If Target.Address <> "$D$5" Then Exit Sub
If Target.Value = "" Then Exit Sub
lg = Feuil1.[A65536].End(3).Row + 1
For lig = 1 To 80
If Feuil2.Cells(lig, 1) = Target.Value Then
col = Feuil2.[IV &lg].End(1).Column
For k=1 To col
Feuil1.Cells(lg,k) = Feuil2.Cells(lig,k)
Next k
lg = lg + 1
End If
Next lig
End Sub
mon copier collé précédent laisse à désirer
là ça doit faire le joint
Youky
"daniel" <novice@neuf.fr> a écrit dans le message de news:
%23Fat3jfYGHA.4688@TK2MSFTNGP04.phx.gbl...
Re,
J'ai voulu essayer de compléter la macro, mais forcément ça plante.
Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n
lignes, sur n colonnes.
j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig
Dim col As Range
Dim lg
Dim i
If Target.Address <> "$D$5" Then Exit Sub
If Target.Value = "" Then Exit Sub
lg = Feuil1.[A65536].End(3).Row + 1
For lig = 1 To 80
If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then
col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire
'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _
lig & ":" & col).Value ' et donc là ça plante
lg = lg + 1
End If
Next
Pouvez-vous, encore, jeter un coup d'oeil.
Encore merci et bonne journée.
Daniel(novice)
Re, Non c'était bien, mais j'avais mal lu et mal recopié en plus (d'où mon précédent message).... et ça doit bien recopier toute la ligne, mais cellule par cellule, c'est bien ça ?? Par contre, ça bloque sur cette ligne col = Feuil2.[IV &lg].End(1).Column Toujours ce souci de référence avec des valeurs... Désolé. A+ Daniel
"Youky" a écrit dans le message de news: u9T$
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig as Integer, col As Integer, lg As Integer If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column For k=1 To col Feuil1.Cells(lg,k) = Feuil2.Cells(lig,k) Next k lg = lg + 1 End If Next lig End Sub mon copier collé précédent laisse à désirer là ça doit faire le joint Youky "daniel" a écrit dans le message de news: %
Re, J'ai voulu essayer de compléter la macro, mais forcément ça plante. Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n lignes, sur n colonnes. j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _ lig & ":" & col).Value ' et donc là ça plante lg = lg + 1
End If Next
Pouvez-vous, encore, jeter un coup d'oeil. Encore merci et bonne journée. Daniel(novice)
Youky
Grrrr,,, col = Feuil2.Cells(lg,256).End(1).Column au lieu de col = Feuil2.[IV &lg].End(1).Column
256 est IV dur,dur A+
"Youky" a écrit dans le message de news: u9T$
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig as Integer, col As Integer, lg As Integer If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column For k=1 To col Feuil1.Cells(lg,k) = Feuil2.Cells(lig,k) Next k lg = lg + 1 End If Next lig End Sub mon copier collé précédent laisse à désirer là ça doit faire le joint Youky "daniel" a écrit dans le message de news: %
Re, J'ai voulu essayer de compléter la macro, mais forcément ça plante. Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n lignes, sur n colonnes. j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _ lig & ":" & col).Value ' et donc là ça plante lg = lg + 1
End If Next
Pouvez-vous, encore, jeter un coup d'oeil. Encore merci et bonne journée. Daniel(novice)
Grrrr,,,
col = Feuil2.Cells(lg,256).End(1).Column
au lieu de
col = Feuil2.[IV &lg].End(1).Column
256 est IV
dur,dur
A+
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
u9T$uBhYGHA.428@TK2MSFTNGP02.phx.gbl...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig as Integer, col As Integer, lg As Integer
If Target.Address <> "$D$5" Then Exit Sub
If Target.Value = "" Then Exit Sub
lg = Feuil1.[A65536].End(3).Row + 1
For lig = 1 To 80
If Feuil2.Cells(lig, 1) = Target.Value Then
col = Feuil2.[IV &lg].End(1).Column
For k=1 To col
Feuil1.Cells(lg,k) = Feuil2.Cells(lig,k)
Next k
lg = lg + 1
End If
Next lig
End Sub
mon copier collé précédent laisse à désirer
là ça doit faire le joint
Youky
"daniel" <novice@neuf.fr> a écrit dans le message de news:
%23Fat3jfYGHA.4688@TK2MSFTNGP04.phx.gbl...
Re,
J'ai voulu essayer de compléter la macro, mais forcément ça plante.
Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n
lignes, sur n colonnes.
j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig
Dim col As Range
Dim lg
Dim i
If Target.Address <> "$D$5" Then Exit Sub
If Target.Value = "" Then Exit Sub
lg = Feuil1.[A65536].End(3).Row + 1
For lig = 1 To 80
If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then
col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire
'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _
lig & ":" & col).Value ' et donc là ça plante
lg = lg + 1
End If
Next
Pouvez-vous, encore, jeter un coup d'oeil.
Encore merci et bonne journée.
Daniel(novice)
Grrrr,,, col = Feuil2.Cells(lg,256).End(1).Column au lieu de col = Feuil2.[IV &lg].End(1).Column
256 est IV dur,dur A+
"Youky" a écrit dans le message de news: u9T$
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig as Integer, col As Integer, lg As Integer If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column For k=1 To col Feuil1.Cells(lg,k) = Feuil2.Cells(lig,k) Next k lg = lg + 1 End If Next lig End Sub mon copier collé précédent laisse à désirer là ça doit faire le joint Youky "daniel" a écrit dans le message de news: %
Re, J'ai voulu essayer de compléter la macro, mais forcément ça plante. Comme indiqué dans un de mes nombreux messages, je souhaitais obtenir n lignes, sur n colonnes. j'ai donc tenté
Private Sub Worksheet_Change(ByVal Target As Range) Dim lig Dim col As Range Dim lg Dim i
If Target.Address <> "$D$5" Then Exit Sub If Target.Value = "" Then Exit Sub lg = Feuil1.[A65536].End(3).Row + 1 For lig = 1 To 80 If Feuil2.Cells(lig, 1) = Target.Value Then
If Feuil2.Cells(lig, 1) = Target.Value Then col = Feuil2.[IV &lg].End(1).Column 'Rajout mais ne peut le lire 'si c'est un chiffre lit bien mais ressort n° colonne et non la lettre
Feuil1.Range("A" & lg & ":" & col).Value = Feuil2.Range("A" & _ lig & ":" & col).Value ' et donc là ça plante lg = lg + 1
End If Next
Pouvez-vous, encore, jeter un coup d'oeil. Encore merci et bonne journée. Daniel(novice)
daniel
TOP Malgré toutes mes demandes mal formulées, tu as trouvé la solution. Je le fais graver et je te remercie encore pour ta patience et ta disponibilité. Merci et bonne journée. Daniel(novice)
TOP
Malgré toutes mes demandes mal formulées, tu as trouvé la solution.
Je le fais graver et je te remercie encore pour ta patience et ta
disponibilité.
Merci et bonne journée.
Daniel(novice)
TOP Malgré toutes mes demandes mal formulées, tu as trouvé la solution. Je le fais graver et je te remercie encore pour ta patience et ta disponibilité. Merci et bonne journée. Daniel(novice)
