Forums XLPages

Tous les messages (Guy)

« 1 ... 34 35 36 37 38 39 40 ... 47 »
Re: Equivalent NB.JOURS.OUVRES() ?
#361
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 13-10-2009 18h04
Bonjour,


Jette un oeil à Calculer le nombre de jours ouvrables entre 2 dates au http://access.developpez.com/faq/?page=TAManip#NbJourOuvr

Sinon Google avec «Équivalent NB.JOURS.OUVRES» et tu auras des heures de lectures instructives.

Cordialement,

Guy


Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: copier coller
#362
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 12-10-2009 18h29
Ben voilà,

L'exemple envoyé au début porte des valeurs dans toutes les lignes, fusionnées ou non, l'exemple suivant Réglages combustionMOD est bien différent.

De plus il ne faut pas trafiquer un exemple avec la méthode pifométrique.
Par exemple pourquoi

PasAvancement = 10
  Do

    PasAvancement = PasAvancement + 3
    EstVide = (Feuil1.Cells(7, PasAvancement) = "")

  Loop Until EstVide

Alors que le pas d'avancement dans ce fichier est de quatre (4)...
De plus la colonne d'origine n'est pas la colonne 1 mais la colonne 2.
Ensuite la tentative de coller pointe vers une cellule fusionnée puisque le pas d'avancement est incorrect. Excel ne fait qu'indiquer cette erreur.

Set PlageSource = Feuil1.Range(Cells(7, PasAvancement - 3), Cells(56, PasAvancement - 1))
  PlageSource.Copy PlageSource.Offset(0, 3) ' ICI, PAFF, BOUM ET TRALALA.

Dans ce classeur il faudra appuyer la recherche de source sur autre chose que la première cellule de la plage visée. Ceci n'était pas indiqué ni ne pouvait être deviné dans le premier exemple.

Je fouille un peu avec ces nouveaux éléments sous la main.
Je réitère, c'est le classeur combustionMOD qui aurait dû être transmit en premier.

Cordialement,

Guy
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: copier coller
#363
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 12-10-2009 16h39
Mais non,

J'arrive sans peine à formuler mes idées de travers identiquement. Alors je ne tire jamais l'oreille sauf lorsque la mauvaise foi s'y mêle, ce qui n'est absolument pas le cas ici.

Donc petit classeur brouillon en exemple. Il se peut que ce ne soit pas du tout la solution cherchée auquel cas nous reprendrons.

Cordialement,

Guy
Pièce jointe:
xls copier coller_Mod.xls   [ Taille: 36.50 Ko - Téléchargements: 479 ]
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: copier coller
#364
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 12-10-2009 15h43
Re bonjour,

Dans le premier encadré, le plus à gauche dans la feuille :
En ligne 11, la cellule la plus à droite est A11.
En ligne 18, la cellule la plus à droite est C18.
En ligne 21, la cellule la plus à droite est A21.

Il faudra ramasser A11:A17 ainsi que C18:C20 puis A21:A22 et enfin C23:C24 si j'ai bien compris.
Et tout ce qui est ainsi ramassé ne porte que sur une seule colonne... Comment le coller dans trois colonnes?

Ce qui précède a été interprété comme «la cellule non vide la plus à droite» est-ce bien le sens de ta question?

Guy

Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: copier coller
#365
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 12-10-2009 15h27
Bonjour manuBX,

La question n'est pas claire.
Qu'entends-tu par «copie derniere cellule a11 à c24 dans d11 à f24».
Plus précisément qu'est-ce que derniere cellule?

Un simple copier/coller ?

Cordialement,

Guy

Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: isoler une partie variable d'une chaine de caractere en vb
#366
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 12-10-2009 15h02
Bonjour spookyz,

La chaîne à fouiller est-elle toujours de la forme [nom du jour]_[quantième]_[nom du mois]_[année]?
Si oui, le nom du mois se trouve toujours après le deuxième caractère de soulignement.
Alors avec :
Dim TableauChaine() As String
Dim ChaineReponse As String

TableauChaine = Split("lundi_12_octobre_2009", "_")

ChaineReponse = TableauChaine(2)
 
TableauChaine portera les éléments suivant dans l'ordre :
TableauChaine(0) = "lundi"
TableauChaine(1) = "12"
TableauChaine(2) =  "octobre"
TableauChaine(3) = "2009"

Ce sera donc, avec l'hypothèse de départ, toujours l'élément d'indice 2 qui portera le nom du  mois comme tu le souhaites et ce peu importe la longueur des éléments qui précèdent.

On pourra évidemment remplacer le littéral lundi_12_octobre_2009par une variable.
De même n'utiliser qu'une variable chaîne avec :

Dim ChaineReponse As String

ChaineReponse = Split("lundi_12_octobre_2009", "_")(2)

Mais, dans ce deuxième exemple, la chose est plus difficile à apercevoir.

Si l'hypothèse citée n'est pas toujours vérifiée, il faudra sans doute aller vers les expressions rationelles. Mais c'est une autre histoire.

Cordialement,

Guy


Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Créer et Utiliser des listes de choix successives
#367
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 09-10-2009 21h14
Casse-pied, comment ça casse-pied?

Va dans le code et repère la ligne
      ' Modifier les paramètre Top, Left, Height et Width au besoin.
      Set shaImage = Feuil2.Shapes.AddPicture(DossierTempo & "Image." & strExt, msoTrue, msoFalse, 10, 10, lngL, lngH)

J'ai posé les paramètres Top et Left à 10. Tu n'as qu'à modifier à ta guise.

Pour la taille fixe ça peut poser problème, je réchiflis.

Guy

Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Créer et Utiliser des listes de choix successives
#368
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 09-10-2009 20h54
J'ai éliminé le Webbrowser dans cette version.

Tu peux essayer pour voir.

Guy

Pièce jointe:
xlsm PourGmarin2_Mod_SansBrowser.xlsm   [ Taille: 34.49 Ko - Téléchargements: 445 ]
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Créer et Utiliser des listes de choix successives
#369
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 09-10-2009 18h55
Je m'amuse.

Un autre exemple avec cette fois un contrôle Shape Image au lieu du Webbrowser.

Guy
Pièce jointe:
zip PourGmarin2_Mod.zip   [ Taille: 35.48 Ko - Téléchargements: 490 ]
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Créer et Utiliser des listes de choix successives
#370
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 09-10-2009 17h01
Bonjour,

Sur la question des dll, avec IE6 la référence se fait à shdocvw.dll alors qu'avec IE7 elle pointe ieframe.dll. Rien à voir avec l'OS mais tout avec IE et sa version.

Pour redimensionner le Webbrowser1 de la Feuil2 dans Excel 2007 : Onglet Développeur/ "équerre/règle/crayon"du mode création.
Sur clic, sur mon poste, le Webbrowser disparaît mais au survol le curseur indique la présence du contrôle. Clic droit et redimensionnement ou modification des propriétés sont alors possibles.

Guy
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

« 1 ... 34 35 36 37 38 39 40 ... 47 »