Macro excel2007-2019

Bernart34 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Bernart34 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   - 15 oct. 2021 à 16:52
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
A voir également:

1 réponse

jordane45 Messages postés 38472 Date d'inscription   Statut Modérateur Dernière intervention   4 745
 
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.

0
Bernart34 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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" ..
0