Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Pour Daniel

Pour Daniel

18 réponses
Avatar
fredbzr
Déjà de retour
je viens d'intégrer le code dans mon application et çà plante
peut-être est-ce du au verrouillage de certaines de mes cellules où au fait
que certaines contiennent de la couleur mis par macro
j'ai rajouté une ligne code en plus mais sans résultat (plantage à la copie)

Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
Sheets("1er T ADS").Unprotect password:="12"
Sheets(NoFeuille).Range("A2:k68").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy Range("A2")
Sheets("1er T ADS").protect password:="12"

End Sub

Fred
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
1 2
Avatar
fredbzr
en fait, lorsqu'il n'y a que les 5 feuilles (et que le 10 est remplacé par
67), tout fonctionne.
c'est quand mes autres feuilles sont là qu'il ne prend pas les bonnes
feuilles

"fredbzr" a écrit dans le message de news:
460a77d0$0$27393$
je viens de tout enlever pour ne laisser que les 5 feuilles

http://cjoint.com/?dCqlpvfKBa


"Daniel" a écrit dans le message de news:

"fredbzr" a écrit dans le message de news:
460a6a11$0$25949$
Je viens de me rendre compte que je n'avais pas remis le "take focus"
sur false
manip effectué mais il ne recopie pas les bon tableaux des bonnes
feuilles.......


Ce qui est normal, si les tableaux font maintenant 67 lignes au lieu de
10.
Peux-tu poster un classseur avec les 5 feuilles ?
Daniel








Avatar
Daniel
http://cjoint.com/?dCqALJfaCp
Daniel
Avatar
Daniel
Les 4 feuilles de données doivent être les 4 premières feuilles du classeur.
Dans le cas contraire :
http://cjoint.com/?dCqXhUbvVU
valable quel que soit l'ordre des feuilles.
Daniel
"fredbzr" a écrit dans le message de news:
460a7acc$0$25919$
en fait, lorsqu'il n'y a que les 5 feuilles (et que le 10 est remplacé par
67), tout fonctionne.
c'est quand mes autres feuilles sont là qu'il ne prend pas les bonnes
feuilles

"fredbzr" a écrit dans le message de news:
460a77d0$0$27393$
je viens de tout enlever pour ne laisser que les 5 feuilles

http://cjoint.com/?dCqlpvfKBa


"Daniel" a écrit dans le message de news:

"fredbzr" a écrit dans le message de news:
460a6a11$0$25949$
Je viens de me rendre compte que je n'avais pas remis le "take focus"
sur false
manip effectué mais il ne recopie pas les bon tableaux des bonnes
feuilles.......


Ce qui est normal, si les tableaux font maintenant 67 lignes au lieu de
10.
Peux-tu poster un classseur avec les 5 feuilles ?
Daniel












Avatar
fredbzr
Je viens de l'inclure dans mon dossier et çà fonctionne presque (idem sur
dossier de cjoint)
la 1ère semaine ok
mais dès la 2ème, il y a des champs dans "noms" qui se mettent en #ref.
lorsque la cellule = 0 ok
mais sinon, est-ce la copie qui se fait mal?

"Daniel" a écrit dans le message de news:
%
Les 4 feuilles de données doivent être les 4 premières feuilles du
classeur. Dans le cas contraire :
http://cjoint.com/?dCqXhUbvVU
valable quel que soit l'ordre des feuilles.
Daniel
"fredbzr" a écrit dans le message de news:
460a7acc$0$25919$
en fait, lorsqu'il n'y a que les 5 feuilles (et que le 10 est remplacé
par 67), tout fonctionne.
c'est quand mes autres feuilles sont là qu'il ne prend pas les bonnes
feuilles

"fredbzr" a écrit dans le message de news:
460a77d0$0$27393$
je viens de tout enlever pour ne laisser que les 5 feuilles

http://cjoint.com/?dCqlpvfKBa


"Daniel" a écrit dans le message de news:

"fredbzr" a écrit dans le message de news:
460a6a11$0$25949$
Je viens de me rendre compte que je n'avais pas remis le "take focus"
sur false
manip effectué mais il ne recopie pas les bon tableaux des bonnes
feuilles.......


Ce qui est normal, si les tableaux font maintenant 67 lignes au lieu de
10.
Peux-tu poster un classseur avec les 5 feuilles ?
Daniel
















Avatar
Daniel
"fredbzr" a écrit dans le message de news:
460a8629$0$27372$
Je viens de l'inclure dans mon dossier et çà fonctionne presque (idem sur
dossier de cjoint)
la 1ère semaine ok
mais dès la 2ème, il y a des champs dans "noms" qui se mettent en #ref.
lorsque la cellule = 0 ok
mais sinon, est-ce la copie qui se fait mal?


Les cellules qui se mettent en #REF! correspondent à des formules dans la
plage d'origine. Par exemple, sur la feuille "1er T ADS", la cellule A108
contient "¤1". Si l'on fait un copier / coller sur "gantt", en A41, le
résultat est logiquement #REF!
Le collage spécial valeursne fonctionne pas à cause de cellules
fusionnées.Tu pourrais peut-être supprimer les formules sur les 4 feuilles
de données ou remplacer "¤1" par "='1er T ADS'!$A$41", ce qui résoud le
problème. Ca peut même se faire par macro.
Daniel

Avatar
fredbzr
je suis prêt à reprendre un cours de macro
si tu as le temps
sinon je modifierai toutes mes formules
"Daniel" a écrit dans le message de news:
uRW43$
"fredbzr" a écrit dans le message de news:
460a8629$0$27372$
Je viens de l'inclure dans mon dossier et çà fonctionne presque (idem sur
dossier de cjoint)
la 1ère semaine ok
mais dès la 2ème, il y a des champs dans "noms" qui se mettent en #ref.
lorsque la cellule = 0 ok
mais sinon, est-ce la copie qui se fait mal?


Les cellules qui se mettent en #REF! correspondent à des formules dans la
plage d'origine. Par exemple, sur la feuille "1er T ADS", la cellule A108
contient "¤1". Si l'on fait un copier / coller sur "gantt", en A41, le
résultat est logiquement #REF!
Le collage spécial valeursne fonctionne pas à cause de cellules
fusionnées.Tu pourrais peut-être supprimer les formules sur les 4 feuilles
de données ou remplacer "¤1" par "='1er T ADS'!$A$41", ce qui résoud le
problème. Ca peut même se faire par macro.
Daniel




Avatar
Daniel
En fait, ce sont les cellules déverrouillées ayant une formule qui posent
problème. Tu as donc l'option de verrouiller toutes les cellules des
colonnes A des 4 feuilles, ce qui est plus simple et plus rationnel.
Je te donne la macro pour modifier les cellules, au cas où tu voudrais quand
même t'en servir :

Sub ModifFormules()
Dim c As Range, Feuille As String
Feuille = ActiveSheet.Name
For Each c In Range("A1", Range("A65536").End(xlUp))
If c.HasFormula = True And Left(c.Formula, 2) = "=A" Then
c.Formula = "='" & Feuille & "'!$A$" & _
Right(c.Formula, Len(c.Formula) - 2)
End If
Next c
End Sub

Elle s'exécute sur la colonne A de la feuille active. Il faut donc la passer
4 fois.
Daniel
"fredbzr" a écrit dans le message de news:
460a8f31$0$27368$
je suis prêt à reprendre un cours de macro
si tu as le temps
sinon je modifierai toutes mes formules
"Daniel" a écrit dans le message de news:
uRW43$
"fredbzr" a écrit dans le message de news:
460a8629$0$27372$
Je viens de l'inclure dans mon dossier et çà fonctionne presque (idem
sur dossier de cjoint)
la 1ère semaine ok
mais dès la 2ème, il y a des champs dans "noms" qui se mettent en #ref.
lorsque la cellule = 0 ok
mais sinon, est-ce la copie qui se fait mal?


Les cellules qui se mettent en #REF! correspondent à des formules dans la
plage d'origine. Par exemple, sur la feuille "1er T ADS", la cellule A108
contient "¤1". Si l'on fait un copier / coller sur "gantt", en A41, le
résultat est logiquement #REF!
Le collage spécial valeursne fonctionne pas à cause de cellules
fusionnées.Tu pourrais peut-être supprimer les formules sur les 4
feuilles de données ou remplacer "¤1" par "='1er T ADS'!$A$41", ce qui
résoud le problème. Ca peut même se faire par macro.
Daniel








Avatar
fredbzr
encore merci milles fois pour tout ce que tu as fait pour moi
bonne soirée

"Daniel" a écrit dans le message de news:

En fait, ce sont les cellules déverrouillées ayant une formule qui posent
problème. Tu as donc l'option de verrouiller toutes les cellules des
colonnes A des 4 feuilles, ce qui est plus simple et plus rationnel.
Je te donne la macro pour modifier les cellules, au cas où tu voudrais
quand même t'en servir :

Sub ModifFormules()
Dim c As Range, Feuille As String
Feuille = ActiveSheet.Name
For Each c In Range("A1", Range("A65536").End(xlUp))
If c.HasFormula = True And Left(c.Formula, 2) = "=A" Then
c.Formula = "='" & Feuille & "'!$A$" & _
Right(c.Formula, Len(c.Formula) - 2)
End If
Next c
End Sub

Elle s'exécute sur la colonne A de la feuille active. Il faut donc la
passer 4 fois.
Daniel
"fredbzr" a écrit dans le message de news:
460a8f31$0$27368$
je suis prêt à reprendre un cours de macro
si tu as le temps
sinon je modifierai toutes mes formules
"Daniel" a écrit dans le message de news:
uRW43$
"fredbzr" a écrit dans le message de news:
460a8629$0$27372$
Je viens de l'inclure dans mon dossier et çà fonctionne presque (idem
sur dossier de cjoint)
la 1ère semaine ok
mais dès la 2ème, il y a des champs dans "noms" qui se mettent en #ref.
lorsque la cellule = 0 ok
mais sinon, est-ce la copie qui se fait mal?


Les cellules qui se mettent en #REF! correspondent à des formules dans
la plage d'origine. Par exemple, sur la feuille "1er T ADS", la cellule
A108 contient "¤1". Si l'on fait un copier / coller sur "gantt", en
A41, le résultat est logiquement #REF!
Le collage spécial valeursne fonctionne pas à cause de cellules
fusionnées.Tu pourrais peut-être supprimer les formules sur les 4
feuilles de données ou remplacer "¤1" par "='1er T ADS'!$A$41", ce qui
résoud le problème. Ca peut même se faire par macro.
Daniel












1 2