Macro excel2007-2019

Signaler
Messages postés
2
Date d'inscription
vendredi 15 octobre 2021
Statut
Membre
Dernière intervention
15 octobre 2021
-
Messages postés
2
Date d'inscription
vendredi 15 octobre 2021
Statut
Membre
Dernière intervention
15 octobre 2021
-
Bonjour,
j ai actuellement un fichier *.xlm qui fonctionne bien sous excel2007 . dès que je le change de pc il ne fonctionne plus sous excel2019
juste une macro .... JE VAIS COPIER DANS LA "FEUIL1" ET JE VIENS COLLER DANS LA PREMIERE LIGNE VIDE DE "WWWWW"
La feuil1 est cachée , mais je ne pense pas que ca dérange
En fait ca vient bien copier/coller mais il y a des cellules avec un choix avec un menu déroulant qui fait n'importe quoi . , Merci de votre aide

Sub Copie2()

With Sheets("Visite WWWWW").Activate

Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.RowHeight = 160
End With

With Sheets("Feuil1")
.Range("A22:L22" & .Range("A65536").End(xlUp).Row).Copy Sheets("Visite WWWWW").Range("A65536").End(xlUp).Offset(1, 0)
End With

derligne = Sheets("Visite WWWWW").Range("A65556").End(xlUp).Row + 1 'On identifie la dernière ligne vide en partant du bas
For I = 1 To derligne
If Range("A" & I) = "" Then
a = Range("A" & I - 1)
b = Right(a, 3) + 1
a = "0" & I - 1
Range("A" & I) = "0" & b
End If
Next I
End Sub




Configuration: Windows / Chrome 94.0.4606.81

1 réponse

Messages postés
34697
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
23 janvier 2022
4 001
Bonjour,

Il faudrait expliquer en quoi ça ne fonctionne pas.... en détails ...

Et puis, si, le fait que la feuille soit masquer ça peut jouer. Essaye de la rendre visible avant d'exécuter la macro et regarde si le souci persiste.

Messages postés
2
Date d'inscription
vendredi 15 octobre 2021
Statut
Membre
Dernière intervention
15 octobre 2021

Bonjour , feuille visible , le résultat est le même ... le copier coller fonctionne bien , c est dans le menu déroulant pour le choix qui n est pas bon , comment dire : si dans le menu déroulant de la colonne A de "FEUIL1" j avais un choix BLEU - Rouge-JAUNE .... , je retrouve à la place âpres collage ce qui se trouve en lieu et place mais de la feuille "WWWWW" ..