problème de macro

Le
marc
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
marc
Le #18837171
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"
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



Publicité
Poster une réponse
Anonyme