EXCEL97 Fermé

Question

Bonjour,
    
Je suis rouillée question code, mais si vous m'expliquez ça peut revenir. Voilà j'ai une imputbox, qui demande le nombre de ligne utilisé (nombre), et je souhaiterai donc faire un range de A, nombre : IU nombre.... le coller c'est autre chose.

Moi j'avais pensé à ça , mais ça ne marche pas :

    Range("(Cells(nombre, a).Value) : (Cells(nombre,iu).value")).Select


Le code que j'ai pour le moment c'est ça : 
    Range("A12:IU41").Select 
    Selection.Copy

    Sheets("Synthèse").Select
    Range("A12:IU41").Select
    ActiveSheet.Paste
    Range("a1").Select

    Sheets("LS").Select
    Range("a1").Select
    Application.CutCopyMode = False

LOULOU

dandypunk · Answer

A la place de

Sheets("Synthèse").Select 
Range("A12:IU41").Select 
ActiveSheet.Paste 
Range("a1").Select

Essayes 

Worksheets("Synthèse").Paste Destination:=Worksheets("Synthèse").Range("A1") 'Pour coller à partir de A1

loulou1684 · Answer

Bonjour,

Merci pour ton aide Dandypunk mais ce n'est pas ce que je veux.  Ton code m'a aidé, et appris des choses.

En faite si tu veux, j'ai un tableau sur feuille 2, il tient sur les lignes A12 : Iu41. Et je voudrai changer ça, car si  un jour il devait tenir sur 42 ?

Je voudrai le rendre variable. Ma solution du nombre est plus compliquée que je ne le pensais.

Aurais tu un moyen pour sélectionner les lignes utilisés sachant que comme c'est un planning, il y a des colonnes qui n'ont rien d'écrit mais une case coloré...et surtout je voudrai qu'il arrête la sélection des lignes quand il y a 2 lig d'affilé vide.

Aidez moi svp !!!

Loulou

loulou1684 · Answer

Slt,

CurrentRegion ne prend pas en compte les cellules coloriés.

loulou1684 · Answer

Sub hide()
'A1:c50 correspond a ta plage de cellule que tu souhaite verifier

Range("A1:c50").Select


For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next

End Sub

Je voudrai essayer autre chose, cacher les lignes vides en cliquant sur un bouton. Mais je souhaiterai qu'il ne cache que lorsqu'il y a 2 linges vides l'une au dessus de l'autre.

J'avais pensé rajouté au if : (O.value +1)="" then

Quand pensez vous ?? Car ça ne marche pas ?
loulou

dandypunk · Answer

On va traiter les choses une par une.
Ta feuille ressemble à cela  https://www.cjoint.com/?cfmTlKGpUK 
mais jamais à cela https://www.cjoint.com/?cfmWfL0TtE

loulou1684 · Answer

https://www.cjoint.com/?cfntNC6AS3

Dandypunk merci de ton attention

Pour mieux se comprendre, je t'ai mis sur cjoint un fichier rar car même en supprimant des onglets mon fichier est gros !!

Tu as le tableau 1 : synthèse
Tu as le tableau 2 : LS // service du pdg

Une colonne client, projet, travaux (description), R pour responsable, i pour intervenant et aprés le calendrier, mois et jour, et dans les cases on y met une couleur.

En fait , les couleurs correspondent :

Rouge : absence
bleu  : travail confirmé au bureau
vert   : rendez-vous confirmé en clientèle
jaune  : tâche prévisionnelle (bureau ou clientèle)

Ensuite, on met "M" ou "A" dans la case si ne concerne que la 1/2 journée. (Certains colorient en hachuré pour le rendre plus visible)

Et donc pour différencier les projets et client en cours pour un service, ils espacent d'une ligne et donc dans ma sélection ça me gêne pour délimiter le tableau.

voilà j'espère qu'on se comprendra mieux

loulou

dandypunk · Answer

Désollé d'avoir été si long à répondre, mais ces deux jous ont été très chargés pour moi. (Je ne vais pas me plaindre d'avoir des clients.)

1) Je crois avoir compris ce que tu désirais.
2) J'ai légèrement modifié ton code de Sub hide

Je te joint déjà le fichier modifié (.zip) 	https://www.cjoint.com/?cguA7YLQP2

Le code modifié se trouve dans le module 10 et dans ThisWorbook

1) J'ai pris une base de 41 comme demandé au départ, mais avec ton tableau qui va jusque 43, il suffira de modifier cette valeur
2) Le variables et constantes de type PUBLIC ne 'appliquent qu'au module en cours. L'idéal est donc de copier toutes tes macros dans un seul module, sinon, l'initialisation ne sera pas prise en compte.
3) Afin d'éviter, de cacher des lignes (procédure hide()), je vais essayer de m'inspirer de cela pour la sélection, dans le style iDerniereLIgnevalide; Je n'ai pas encore eu le temps de me pencher sur le problème.
4) Je serai absent de la toile jusque mardi, voire mercredi et je ne sais pas si demain j'aurai le temps.

En espérant que cela t'aura aidé, je reste à ta disposition.

eriiic · Answer

Bonsoir tout le monde,

je n'ai pas pris le temps de regarder les classeurs mais pour répondre à ta 1ère question tu peux te fabriquer ton range ainsi :
i=42
range("A12:IU" & i).cequetuveux

il suffit de concatener
eric

loulou1684 · Answer

Pour elle !!

Oui en effet ça m'aide merci

Je vais voir ça aujourd'hui.

Je souhaite en effet que le nombre de ligne soit variables mais le mieux c'est que l'utilisateur sache combien il en a utilisé. Et je pense mettre un compteur, en bas de la première colonne,  un count. et je prendrai ce chiffre comme repère pour tout !!

Je pense ça va marcher !! merci de vos aides, je pense pas avoir été clair, mais je mettrai le tableau une fois fini !!

dandypunk · Answer

Désolé pour le pour lui il est vrai que tu avais écrit rouillée

loulou1684 · Answer

Ce n'est pas grave !!

De ton code, je voudrai arriver à faire, que le compteur qui est  notre information sur la sélection du nombre de ligne soit conservé et utilisé dans les autres codes pour tout le temps savoir le nombre de lignes.

Je ne sais plus comment, je faisais avant pour avoir cette donnée d'accessible à tout. Là où la procédure est appelé, on aura le icompteurligne ? Qu’en penses tu ?



Sub Selection_ls()
'
' Macro enregistrée le 07/02/2008 par
'
 Dim bLignePrecedenteVide As Boolean
    Dim iCompteurLigne As Integer
    Dim sCelluleAVerifier As String
    
    bLignePrecedenteVide = False

    For iCompteurLigne = 15 To iLigneMax 'Les infos intéressantes commencent ligne 15

        sCelluleAVerifier = ("A&iCompteurLigne")
        Range(sCelluleAVerifier).Select

        If (Selection.Value = "") And (bLignePrecedenteVide = False) 
Then ‘ la cellule est vide et la ligne précédente non
            bLignePrecedenteVide = True ' on passe que la ligne est vide pour le reste du code
           ' on continue d'incrémenter le compteur, car une seule ligne vide doit être comptée !
           Else ‘ la cellule n’est pas vide et 'bLignePrecedenteVide est à vrai
            If (Selection.Value = "") ‘ si la ligne est vide
Then 'bLignePrecedenteVide est donc vrai et fin sélection
IcompteurLigne = IcompteurLigne – 1 ‘ On enlève 1 au compteur pour enlever la deuxième ligne vide.
                       Else
                     bLignePrecedenteVide = False
             End If

         End If

    Next
'
End Sub

loulou1684 · Answer

J'exécute ce code pas à pas, et tout ce fait ok, le compteur s'arrête bien à 23, ce qui correspond bien à mon test mais en revanche le logiciel bug, comme si j'étais en boucle infernal.  Peux tu m'aider ?

    Sub Selection_ls()
'
' Macro enregistrée le 07/02/2008 par
'
 Dim bLignePrecedenteVide As Boolean
    Dim iCompteurLigne As Integer
    Dim sCelluleAVerifier As String
    
    
    bLignePrecedenteVide = False
    iLigne_max_ls = 50

    For iCompteurLigne = 15 To iLigne_max_ls 'Les infos intéressantes commencent ligne 15

        sCelluleAVerifier = "A" + CStr(iCompteurLigne)
        Range(sCelluleAVerifier).Select

        If (Selection.Value = "") And (bLignePrecedenteVide = False) Then ' la cellule est vide et la ligne précédente non
            bLignePrecedenteVide = True ' on passe que la ligne est vide pour le reste du code
           ' on continue d'incrémenter le compteur, car une seule ligne vide doit être comptée !
           Else ' la cellule n'est pas vide et 'bLignePrecedenteVide est à vrai
                If (Selection.Value = "") Then 'bLignePrecedenteVide est donc vrai et fin sélection
                iCompteurLigne = iCompteurLigne - 1 ' On enlève 1 au compteur pour enlever la deuxième ligne vide.
                Else
                     bLignePrecedenteVide = False
                End If
         End If

    Next
'
End Sub

loulou1684 · Answer

j'ai oublié je mets :

     return iCompteurLigne 

aprés icompteurligne = icompteurligne - 1

sinon je ne sortait pas effectivement

mais je ne sais plus voir même on peut dire pas, renvoyer une valeur !! j'ai honte !!

merci de votre aide

loulou1684 · Answer

oublier ces deux derniers post !!

Grâce à ton aide dandypunk, je m'y suis remise.

reste comment on écrit ça :

    Range("A"&i_ls:"iu"&i_ls).Select ça ne marche pas trop

loulou

eriiic · Answer

Bonsoir,

le : doit ête dans les ""
Range("A" & i_ls ":iu" & i_ls).Select 

mais je te rappelle qu'au début tu voulais sélectionner A12:IUxx
Avec ta formule tu ne sélectionneras que la ligne i_ls

eric

loulou1684 · Answer

Bonjour,

Oui au début j'avais besoin de ça. Mais maintenant pour les autres tableaux, qui se mettent aprés le premier, je ne peux plus savoir où cela se termine et où commencer le tableau .

merci mais ça ne fonctionne pas

Range("A & i_ls :IU & i_ls").Select

eriiic · Answer

Bonsoir,

Range("A" & i_ls & ":IU" & i_ls").Select

Mais vu que tu n'as qu'une variable i_ls tu ne selectionneras qu'une ligne

eric

loulou1684 · Answer

bonjour
 
oui désolée, en fait j'ai été trop vite

Range("A" & i_ls & ":IU" & i_lsa").Select 

il y a une deuxième variable !!

merci je vais tester !!!

loulou

loulou1684 · Answer

rebonjour,

cela ne fonctionne pas, il me met message d'erreur: Erreur de compilation, attendu : séparateur de liste ou)

Range("A" & i_ls & ":IU" & i_lsa").select

si tu as une autre idée

merci de ton aide

loulou

eriiic · Answer

Re,

Effectivement j'avais laissé encore une erreur, la " du bout à enlever.
Range("A" & i_ls & ":IU" & i_lsa).select 
eric

loulou1684 · Answer

Bonjour

et merci à tout le monde, je ne suis pas toujours très clair mais vous m'avez beaucoup aidé à remettre le pied à l'estrier !!

 Rows("& fin_ls_lsa :" & avant_debut_devdiv).Select

je sélectionne les lignes de i à y mais encore une fois la stynthaxe me pose problème !!

help please 

loulou

eriiic · Answer

Hé loulou !!!!
Tu crois pas que tu exagères ?
Même si ce n'est pas la même fonction qu'en 21 regarde comment sont placées les " " et sers toi un peu de ta tete...

"toto" est une chaine fixe, et on ne met pas les variables entre guillemets !
De quoi à besoin rows(...) entre les ( ) ? 
Si tu hésites sur la réponse fais F1 sur rows

eric

dandypunk · Answer

De retour sur la toile.
ARTICLE 1 NE JAMAIS FAIRE CONFIANCE AUX UTILISATEURS. (Oui je hurle)
J'ai vu les précédent post. Je prense à étudier  le 3) de mon post 7 à savoir :sélectionner uniquement les lignes nécessaires avant le copier coller.

Bonne  nuit.

loulou1684 · Answer

Bonjour à tous,

Eriic je comprends ton énèrvement mais si je suis venue poster c'est que ça ne fonctionait pas.

  
     'Rows(fin_ls_lsa :avant_debut_devdiv).Select // j'ai mis ça en commentaire pour pouvoir avancer (erreur 13, type incompatible)

    Rows("40:131").Select
    Selection.Rows.Group
    Selection.EntireRow.Hidden = True // je fais un groupe pour cacher les lignes vides.
    Range("a1").Select

En effet, dandypunk, je vais te remettre  un fichier de l'état d'avancement de mon projet. Mais pour le tableau C, il y a le A et le B qui sont en premier, du coup je suis obligée de laisser la place pour les maximums de A et C et afin qu'on ne voit pas les lignes blanches de 40 à 131 pour l'exemple d'ici car ce sera une donnée variable, je fais un hidden. ça marche super.

Une fois finie ça, c'est beaucoup de copier coller, et aprés mettre des protections et ce sera ok. En revanche je voulais savoir est ce normal la taille du fichier excel. Est ce parce qu'il y a beaucoup d'onglets, ou le code un peu trop lourd, car je sais qu'on pourrait le simplifier mais bon...

Si vous voulez je fais ça en plus de mon boulot, pour les besoins de la boite, mais au plus ça va, au plus je manque de temps alors....

merci à tous de votre aide, et eriic j'essayerai de ne pas poster inutilement, mais c'était pour m'éviter de chercher....

loulou

loulou1684 · Answer

Bonjour à tous,

Eriic je comprends ton énèrvement mais si je suis venue poster c'est que ça ne fonctionait pas.

  
     'Rows(fin_ls_lsa :avant_debut_devdiv).Select // j'ai mis ça en commentaire pour pouvoir avancer (erreur 13, type incompatible)

    Rows("40:131").Select
    Selection.Rows.Group
    Selection.EntireRow.Hidden = True // je fais un groupe pour cacher les lignes vides.
    Range("a1").Select

En effet, dandypunk, je vais te remettre  un fichier de l'état d'avancement de mon projet. Mais pour le tableau C, il y a le A et le B qui sont en premier, du coup je suis obligée de laisser la place pour les maximums de A et C et afin qu'on ne voit pas les lignes blanches de 40 à 131 pour l'exemple d'ici car ce sera une donnée variable, je fais un hidden. ça marche super.

Une fois finie ça, c'est beaucoup de copier coller, et aprés mettre des protections et ce sera ok. En revanche je voulais savoir est ce normal la taille du fichier excel. Est ce parce qu'il y a beaucoup d'onglets, ou le code un peu trop lourd, car je sais qu'on pourrait le simplifier mais bon...

Si vous voulez je fais ça en plus de mon boulot, pour les besoins de la boite, mais au plus ça va, au plus je manque de temps alors....

merci à tous de votre aide, et eriic j'essayerai de ne pas poster inutilement, mais c'était pour m'éviter de chercher....

loulou

dandypunk · Answer

Salut loulou je n'ai pas eu le temps de m'occuper de ton problème.

Qui plus est, Eriic s'occupait de toi.

A priori, tu n'est pas en RSO. Donc tu dois le simuler. A savoir: considérant les services TOTO, TITI, TATA qui doivent chacun inscrire leur planning dans le tableau "Synthèse"

Essaye de créer une feuille cachée avec une ligne qui récupère la dernière ligne inscrite.

Tu ajoutes un espace. La prochaine fois, le bouton ajouter le tableau se remettra en place. C'est difficile d'être vraiment clair, mais l'idée est là.

J'attend un fichier d'avancement, afin que nous ne nous "marchions pas dessus".

Rassure toi ceux qui aident font aussi cela e nplus de leur boulot.

loulou1684 · Answer

Bonjour à tous!

J'ai quasiment fini mon planning !! 2 problèmes persistes :

1) Je crée un goupe pour cacher les lignes vides sur un tableau D, mais si ce tableau n'a pas de groupe, je veux dire lors de la première utilisation, cela plante. Car dans mon code, je faisais enlever tout les groupes avant d'en recréer un

    ' on enlève tout group qui aurait pu être crée
    Range("A12:A" & début_selection_dev).Select // ce sera toujours de 12 à 132 (132 étant égal à deux max)
    selection.Rows.Ungroup
    selection.EntireRow.Hidden = False
    Range("a1").Select
    
    
    'on cache les lignes vides

    'Rows("fin_ls_lsa :avant_debut_devdiv").Select // j'ai contourné le problème en faisant un range
     Range("A" & fin_ls_lsa & ":A" & début_selection_dev).Select
     selection.Rows.Group
     selection.EntireRow.Hidden = True
     Range("a1").Select
    
Il faudrait en faite faire un s'il n'y a pas de groupe alors groupe, s'il y en a un, alors enlevé groupe...A vos idées si vous m'avez comprises...mais cette aprés midi je mets le fichier en ligne.

2) Les protections :

Le tableau A, reçoit toutes les données des autres tableaux, et il je le protège mais en code vba quand je veux le dévérouiller ça ne fonctionne pas. J'ai mis ça :

Sheets("Feuil1").Unprotect , password:="louise"

Il faut forcément que ce soit dévérouillée par code vba, car pour le tableau d et e, il y a des éléments aussi qui doivent être vérouillée...

bref je suis perdue dans le vérouillage !!!

merci de votre aide

loulou