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 -
Bernart34 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Macro excel2007-2019
- Telecharger office 2019 - Télécharger - Traitement de texte
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Visual c++ 2019 - Guide
- Télécharger microsoft visio 2019 gratuit - Télécharger - Gestion de données
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
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.
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.
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" ..