Résultats de la recherche

  1. T

    Calcul répété avec utilisation de Date

    Bonjour, Je vous explique mon problème. J'ai sur une feuille des données composées de 3 colonnes avec 12 lignes 1 Janvier 0.0250 2 Février 0.0321 3 Mars 0.072 4 Avril 0.076 5 Mai 0.082 6 Avril 0.102 7 Juillet 0.125 8 Aout 0.123 9 Septembre 0.092 10 Octobre 0.721...
  2. T

    Tri: comment ca fonctionne exactement ?

    Bonjour, J'aimerai bien comprendre comment fonctionne le tri. J'ai: Sheets("Feuil1").Range("A2:G" & Range("G65535").End(xlDown).Row).Sort Key1:=Range("A2:G" & Range("G65535").End(xlDown).Row), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False...
  3. T

    Ajouter un nom avec une étendue classeur en vba

    Bonjour, Je me prend la tête avec les noms. Je souhaite définir en vba un nom avec une étendu sur tout le classeur. j'ai pour le moment: Sheets("Feuille1").Range("A1").Select ActiveSheet.Names.Add Name:="Nom1", RefersTo:=Range(Range("A2"), Range("A2").End(xlDown).Address) et le nom...
  4. T

    Pivoter de 90° toutes les images qui sont en format paysage d'un dossier.

    onjour à tous Je cherche à pivoter de 90° toutes les images qui sont au format paysage d'un dossier. Je voulais faire un truc du genre: Sub Pivoter_images_paysage() Dim sDossier As String Dim sFichier As String sDossier = ThisDocument.Path & "\" & "images" sFichier =...
  5. T

    Ajout d'images placées dans un dossier

    Bonjour, Je cherche à ajouter toutes les images comprises dans un dossier par ordre alphabétique et/ou numérique. J'ai commencer par ce code générer par enregistrement de macro. Selection.InlineShapes.AddPicture FileName:= _ "C:\test.jpg" _ , LinkToFile:=False...
  6. T

    savoir si une ligne contient au moins une cellule fusionnée

    Bonjour, je voudrais savoir si une ligne contient au moins une cellule fusionné. j étant le numéro de ligne. J'ai écris cela: If Range(Cells(j, 0), Cells(j, 0)).MergeCells = True Then msgbox "Il y a au moins une cellule fusionné" dans la ligne " & j else msgbox "Il n'y a pas de...
  7. T

    Objet excel avec taille modifiée à l'insertion

    Bonjour, J'ai un document excel en payage sur le quel je veux insérer un pied de page vertical en objet excel.Voir Pied de page.xls (document avec une extrème précision, quand je l'imprime en A4 c'est exactement ce que je veux) Je veux qu'il soit placer exactement entre la marge haut et la...
  8. T

    Trouver la derniere ligne d'une plage.

    Bonjour, Je souhaite connaitre la dernière ligne d'une plage. Cette plage est la plage de la zone d'impression. J'ai essayé avec: nbrlignemax = ActiveSheet.PageSetup.PrintArea nbrlignemax = Range(nbrlignemax).Row MsgBox nbrlignemax Imaginons que la plage est A1:O150 j'aimerai...
  9. T

    ajout d'un objet excel mais différence de taille.

    Bonjour, J'ajoute un objet excel en vba mais il y a une différence de taille entre les 2 documents comment le résoudre ? l'échelle du document inséré est 100% et 43% pour le document sur lequel j'insère le fichier excel. Le code utilisé est: Range("A1").Select...
  10. T

    Connaitre une postion (n° de page) d'une cellule

    Bonjour, Je souhaite rajouter un objet au même endroit sur chaque page d'une feuille active. Les pages sont présentés de la façon suivante: Page 1 Page 2 Page 3 Page 4 Page ... Je pensais donc incrémenté chaque cellule d'une colonne savoir dans qu'elle page (et non feuille) elle se...
  11. T

    Insèrer un pied de page à gauche en payage avec une macro.

    Bonjour, Je souhaite ajouter un pied de page composé de boite à texte, le tout groupés. avec numéro de page. Le tout serait ajouté avec une macro grâce à un bouton(supprimer pied de page s'il en existe un puis ajout de pied de page avec numéro de page automatique via macro) Je serais...