Bonjour à vous tous
J'avais une macro, que je me servais depuis près de deux ans et qui l'a ce matin, ne fonctionne plus. Dans mon fichier Excel, j'ai
trois feuilles, region, ville, et tous. Ce que je cherche à faire, c'est de combiner les données de la feuille region et ville dans
la feuille tous. Ce matin, quand j'exécute ma macro, les données ne se copies plus dans ma feuille tous. Je n'ai pas de message
d'erreur. Voici mon code.
Merci de m'aider. Je suis sur Excel 2003.
Sub fusion()
Worksheets("tous").Range("a1").CurrentRegion.ClearContents
Dim c As Range, PlageRecap As Range, Plage As Range
Dim Ligne As Long
Sheets("tous").Select
Set PlageRecap = Range("A1", Range("A65536").End(xlUp))
Ligne = PlageRecap.Rows.Count
Sheets("region").Select
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then
c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1)
Ligne = Ligne + 1
End If
Next c
Sheets("montreal").Select
Set Plage = Range("A3", Range("A65536").End(xlUp))
For Each c In Plage
If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then
c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1)
Ligne = Ligne + 1
End If
Next c
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
marc
Bonjour oublie mon post, j'ai trouvé mon problème. J'avais des lignes vides dans ma feuille region. Désolé du dérangement. Marc
"marc" a écrit dans le message de news:
Bonjour à vous tous J'avais une macro, que je me servais depuis près de deux ans et qui l'a ce matin, ne fonctionne plus. Dans mon fichier Excel, j'ai trois feuilles, region, ville, et tous. Ce que je cherche à faire, c'est de combiner les données de la feuille region et ville dans la feuille tous. Ce matin, quand j'exécute ma macro, les données ne se copies plus dans ma feuille tous. Je n'ai pas de message d'erreur. Voici mon code. Merci de m'aider. Je suis sur Excel 2003.
Sub fusion()
Worksheets("tous").Range("a1").CurrentRegion.ClearContents Dim c As Range, PlageRecap As Range, Plage As Range Dim Ligne As Long Sheets("tous").Select Set PlageRecap = Range("A1", Range("A65536").End(xlUp)) Ligne = PlageRecap.Rows.Count Sheets("region").Select Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1) Ligne = Ligne + 1 End If Next c Sheets("montreal").Select Set Plage = Range("A3", Range("A65536").End(xlUp)) For Each c In Plage If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1) Ligne = Ligne + 1 End If Next c
End Sub
Bonjour
oublie mon post, j'ai trouvé mon problème.
J'avais des lignes vides dans ma feuille region.
Désolé du dérangement.
Marc
"marc" <test@test.com> a écrit dans le message de news: ujnTrtlnJHA.4028@TK2MSFTNGP03.phx.gbl...
Bonjour à vous tous
J'avais une macro, que je me servais depuis près de deux ans et qui l'a ce matin, ne fonctionne plus. Dans mon fichier Excel, j'ai
trois feuilles, region, ville, et tous. Ce que je cherche à faire, c'est de combiner les données de la feuille region et ville
dans la feuille tous. Ce matin, quand j'exécute ma macro, les données ne se copies plus dans ma feuille tous. Je n'ai pas de
message d'erreur. Voici mon code.
Merci de m'aider. Je suis sur Excel 2003.
Sub fusion()
Worksheets("tous").Range("a1").CurrentRegion.ClearContents
Dim c As Range, PlageRecap As Range, Plage As Range
Dim Ligne As Long
Sheets("tous").Select
Set PlageRecap = Range("A1", Range("A65536").End(xlUp))
Ligne = PlageRecap.Rows.Count
Sheets("region").Select
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then
c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1)
Ligne = Ligne + 1
End If
Next c
Sheets("montreal").Select
Set Plage = Range("A3", Range("A65536").End(xlUp))
For Each c In Plage
If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then
c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1)
Ligne = Ligne + 1
End If
Next c
Bonjour oublie mon post, j'ai trouvé mon problème. J'avais des lignes vides dans ma feuille region. Désolé du dérangement. Marc
"marc" a écrit dans le message de news:
Bonjour à vous tous J'avais une macro, que je me servais depuis près de deux ans et qui l'a ce matin, ne fonctionne plus. Dans mon fichier Excel, j'ai trois feuilles, region, ville, et tous. Ce que je cherche à faire, c'est de combiner les données de la feuille region et ville dans la feuille tous. Ce matin, quand j'exécute ma macro, les données ne se copies plus dans ma feuille tous. Je n'ai pas de message d'erreur. Voici mon code. Merci de m'aider. Je suis sur Excel 2003.
Sub fusion()
Worksheets("tous").Range("a1").CurrentRegion.ClearContents Dim c As Range, PlageRecap As Range, Plage As Range Dim Ligne As Long Sheets("tous").Select Set PlageRecap = Range("A1", Range("A65536").End(xlUp)) Ligne = PlageRecap.Rows.Count Sheets("region").Select Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1) Ligne = Ligne + 1 End If Next c Sheets("montreal").Select Set Plage = Range("A3", Range("A65536").End(xlUp)) For Each c In Plage If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1) Ligne = Ligne + 1 End If Next c