Je me suis fait un petit programme pour inserer des cellules sous d'autres
dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de
la colonne 1 (sachant que dans la colonne 1, les données sont triées).
Il y a une erreur d'execution. Peut être est ce parce que les cellules sont
du texte et non des valeurs?
Voici mon programme
Merci
Blandine
Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1) = Cells(j, 6) Then
Cells(k, 6).Resize(1, 1).Insert
i = i + 1
k = k + 1
Cells(k, 6) = Cells(i, 2)
Else
j = j + 1
End If
Loop
End Sub
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
Daniel
Bonjour. Je n'arrive pas à reproduire l'erreur. Sur quelle ligne se produit-elle ? Cordialement. Daniel "blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub
Bonjour.
Je n'arrive pas à reproduire l'erreur. Sur quelle ligne se produit-elle ?
Cordialement.
Daniel
"blandine" <blandine@discussions.microsoft.com> a écrit dans le message de
news: C2BB8F38-C93E-44AB-A517-1FAD00D0B473@microsoft.com...
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous
d'autres
dans la colonne 6 si les titres de la colonne 6 sont similaires a celles
de
la colonne 1 (sachant que dans la colonne 1, les données sont triées).
Il y a une erreur d'execution. Peut être est ce parce que les cellules
sont
du texte et non des valeurs?
Voici mon programme
Merci
Blandine
Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1) = Cells(j, 6) Then
Cells(k, 6).Resize(1, 1).Insert
i = i + 1
k = k + 1
Cells(k, 6) = Cells(i, 2)
Else
j = j + 1
End If
Loop
End Sub
Bonjour. Je n'arrive pas à reproduire l'erreur. Sur quelle ligne se produit-elle ? Cordialement. Daniel "blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub
MichDenis
Est-ce ceci que tu désires faire ? (pas sûr d'avoir tout compris ?)
'-------------------------- Sub Insertion()
Dim NbLignes As Long NbLignes = Range("A65536").End(xlUp).Row For x = NbLignes To 1 Step -1 If Cells(x, 1) = Cells(x, 6) Then Cells(x, 6).Resize(1, 1).Insert Cells(x, 6) = Cells(x, 2) End If Next End Sub '--------------------------
"blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub
Est-ce ceci que tu désires faire ?
(pas sûr d'avoir tout compris ?)
'--------------------------
Sub Insertion()
Dim NbLignes As Long
NbLignes = Range("A65536").End(xlUp).Row
For x = NbLignes To 1 Step -1
If Cells(x, 1) = Cells(x, 6) Then
Cells(x, 6).Resize(1, 1).Insert
Cells(x, 6) = Cells(x, 2)
End If
Next
End Sub
'--------------------------
"blandine" <blandine@discussions.microsoft.com> a écrit dans le message de news:
C2BB8F38-C93E-44AB-A517-1FAD00D0B473@microsoft.com...
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres
dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de
la colonne 1 (sachant que dans la colonne 1, les données sont triées).
Il y a une erreur d'execution. Peut être est ce parce que les cellules sont
du texte et non des valeurs?
Voici mon programme
Merci
Blandine
Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1) = Cells(j, 6) Then
Cells(k, 6).Resize(1, 1).Insert
i = i + 1
k = k + 1
Cells(k, 6) = Cells(i, 2)
Else
j = j + 1
End If
Loop
End Sub
Est-ce ceci que tu désires faire ? (pas sûr d'avoir tout compris ?)
'-------------------------- Sub Insertion()
Dim NbLignes As Long NbLignes = Range("A65536").End(xlUp).Row For x = NbLignes To 1 Step -1 If Cells(x, 1) = Cells(x, 6) Then Cells(x, 6).Resize(1, 1).Insert Cells(x, 6) = Cells(x, 2) End If Next End Sub '--------------------------
"blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub
blandine
Quand je le fais, cela marque erreur 13, incompatibilité de type. En fait mon programme servirait a créer des blocs sous lesquels il y aurait tous les elements appartenant a ces blocs. ex:*auto bm renault *petrole edf...
et ceci en ayant pour chaque société une definition du secteur.
Merci
Je ne sais pas cmt on voit la ligne de l'erreur
Est-ce ceci que tu désires faire ? (pas sûr d'avoir tout compris ?)
'-------------------------- Sub Insertion()
Dim NbLignes As Long NbLignes = Range("A65536").End(xlUp).Row For x = NbLignes To 1 Step -1 If Cells(x, 1) = Cells(x, 6) Then Cells(x, 6).Resize(1, 1).Insert Cells(x, 6) = Cells(x, 2) End If Next End Sub '--------------------------
"blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub
Quand je le fais, cela marque erreur 13, incompatibilité de type.
En fait mon programme servirait a créer des blocs sous lesquels il y aurait
tous les elements appartenant a ces blocs.
ex:*auto
bm
renault
*petrole
edf...
et ceci en ayant pour chaque société une definition du secteur.
Merci
Je ne sais pas cmt on voit la ligne de l'erreur
Est-ce ceci que tu désires faire ?
(pas sûr d'avoir tout compris ?)
'--------------------------
Sub Insertion()
Dim NbLignes As Long
NbLignes = Range("A65536").End(xlUp).Row
For x = NbLignes To 1 Step -1
If Cells(x, 1) = Cells(x, 6) Then
Cells(x, 6).Resize(1, 1).Insert
Cells(x, 6) = Cells(x, 2)
End If
Next
End Sub
'--------------------------
"blandine" <blandine@discussions.microsoft.com> a écrit dans le message de news:
C2BB8F38-C93E-44AB-A517-1FAD00D0B473@microsoft.com...
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres
dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de
la colonne 1 (sachant que dans la colonne 1, les données sont triées).
Il y a une erreur d'execution. Peut être est ce parce que les cellules sont
du texte et non des valeurs?
Voici mon programme
Merci
Blandine
Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1) = Cells(j, 6) Then
Cells(k, 6).Resize(1, 1).Insert
i = i + 1
k = k + 1
Cells(k, 6) = Cells(i, 2)
Else
j = j + 1
End If
Loop
End Sub
Quand je le fais, cela marque erreur 13, incompatibilité de type. En fait mon programme servirait a créer des blocs sous lesquels il y aurait tous les elements appartenant a ces blocs. ex:*auto bm renault *petrole edf...
et ceci en ayant pour chaque société une definition du secteur.
Merci
Je ne sais pas cmt on voit la ligne de l'erreur
Est-ce ceci que tu désires faire ? (pas sûr d'avoir tout compris ?)
'-------------------------- Sub Insertion()
Dim NbLignes As Long NbLignes = Range("A65536").End(xlUp).Row For x = NbLignes To 1 Step -1 If Cells(x, 1) = Cells(x, 6) Then Cells(x, 6).Resize(1, 1).Insert Cells(x, 6) = Cells(x, 2) End If Next End Sub '--------------------------
"blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub
MichDenis
| Quand je le fais, cela marque erreur 13, incompatibilité de type. Quand tu fais quoi ? Quelle est la ligne problématique qu'excel t'indique ?
Je ne comprends pas comment tes données sont disposées et leur disposition à la fin de la macro.
"blandine" a écrit dans le message de news:
Quand je le fais, cela marque erreur 13, incompatibilité de type. En fait mon programme servirait a créer des blocs sous lesquels il y aurait tous les elements appartenant a ces blocs. ex:*auto bm renault *petrole edf...
et ceci en ayant pour chaque société une definition du secteur.
Merci
Je ne sais pas cmt on voit la ligne de l'erreur
Est-ce ceci que tu désires faire ? (pas sûr d'avoir tout compris ?)
'-------------------------- Sub Insertion()
Dim NbLignes As Long NbLignes = Range("A65536").End(xlUp).Row For x = NbLignes To 1 Step -1 If Cells(x, 1) = Cells(x, 6) Then Cells(x, 6).Resize(1, 1).Insert Cells(x, 6) = Cells(x, 2) End If Next End Sub '--------------------------
"blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub
| Quand je le fais, cela marque erreur 13, incompatibilité de type.
Quand tu fais quoi ? Quelle est la ligne problématique qu'excel t'indique ?
Je ne comprends pas comment tes données sont disposées et leur disposition
à la fin de la macro.
"blandine" <blandine@discussions.microsoft.com> a écrit dans le message de news:
798BD620-1BE5-4351-BAB7-90A4A8D333CF@microsoft.com...
Quand je le fais, cela marque erreur 13, incompatibilité de type.
En fait mon programme servirait a créer des blocs sous lesquels il y aurait
tous les elements appartenant a ces blocs.
ex:*auto
bm
renault
*petrole
edf...
et ceci en ayant pour chaque société une definition du secteur.
Merci
Je ne sais pas cmt on voit la ligne de l'erreur
Est-ce ceci que tu désires faire ?
(pas sûr d'avoir tout compris ?)
'--------------------------
Sub Insertion()
Dim NbLignes As Long
NbLignes = Range("A65536").End(xlUp).Row
For x = NbLignes To 1 Step -1
If Cells(x, 1) = Cells(x, 6) Then
Cells(x, 6).Resize(1, 1).Insert
Cells(x, 6) = Cells(x, 2)
End If
Next
End Sub
'--------------------------
"blandine" <blandine@discussions.microsoft.com> a écrit dans le message de news:
C2BB8F38-C93E-44AB-A517-1FAD00D0B473@microsoft.com...
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres
dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de
la colonne 1 (sachant que dans la colonne 1, les données sont triées).
Il y a une erreur d'execution. Peut être est ce parce que les cellules sont
du texte et non des valeurs?
Voici mon programme
Merci
Blandine
Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1) = Cells(j, 6) Then
Cells(k, 6).Resize(1, 1).Insert
i = i + 1
k = k + 1
Cells(k, 6) = Cells(i, 2)
Else
j = j + 1
End If
Loop
End Sub
| Quand je le fais, cela marque erreur 13, incompatibilité de type. Quand tu fais quoi ? Quelle est la ligne problématique qu'excel t'indique ?
Je ne comprends pas comment tes données sont disposées et leur disposition à la fin de la macro.
"blandine" a écrit dans le message de news:
Quand je le fais, cela marque erreur 13, incompatibilité de type. En fait mon programme servirait a créer des blocs sous lesquels il y aurait tous les elements appartenant a ces blocs. ex:*auto bm renault *petrole edf...
et ceci en ayant pour chaque société une definition du secteur.
Merci
Je ne sais pas cmt on voit la ligne de l'erreur
Est-ce ceci que tu désires faire ? (pas sûr d'avoir tout compris ?)
'-------------------------- Sub Insertion()
Dim NbLignes As Long NbLignes = Range("A65536").End(xlUp).Row For x = NbLignes To 1 Step -1 If Cells(x, 1) = Cells(x, 6) Then Cells(x, 6).Resize(1, 1).Insert Cells(x, 6) = Cells(x, 2) End If Next End Sub '--------------------------
"blandine" a écrit dans le message de news:
Bonjour,
Je me suis fait un petit programme pour inserer des cellules sous d'autres dans la colonne 6 si les titres de la colonne 6 sont similaires a celles de la colonne 1 (sachant que dans la colonne 1, les données sont triées). Il y a une erreur d'execution. Peut être est ce parce que les cellules sont du texte et non des valeurs?
Voici mon programme Merci
Blandine
Sub Insertion() i = 1 j = 1 k = 1 Do While i <= [a65000].End(xlUp).Row If Cells(i, 1) = Cells(j, 6) Then Cells(k, 6).Resize(1, 1).Insert i = i + 1 k = k + 1 Cells(k, 6) = Cells(i, 2) Else j = j + 1 End If Loop End Sub