Contenu récent par Kobaya

  1. K

    Copier, se déplacer et coller

    Re : Copier, se déplacer et coller Bonjour Egruat, Essaie ceci : Sub test() Dim j As Long For j = 1 To Range("H:H").Rows.Count Cells(j, 8).Select If Selection.Value > 0 Then Range("I2:J2").Select Selection.Copy...
  2. K

    Copie automatique plage de cellules

    Re : Copie automatique plage de cellules Bonjour Haniki, Peut-être qu'en ne copiant que les colonnes contenant des données, ça marcherait ? Mais pour ça, il faut d'abord défusionner les cellules ! Sub Copy() Cells.UnMerge Range("A:A,K:K,U:U,AE:AE,AO:AO,AY:AY,BI:BI,BR:BR,BS:BS").Copy...
  3. K

    Souci après remise à zéro

    Re : Souci après remise à zéro Bonjour mig_59, Après le RAZ, la date sera obligatoirement supérieure au contenu de la cellule vide. Donc, si tu remplaces If Date > Range("B6") Then par If Date > Range("B6") And Range("B6").Value <> "" Then ça devrait fonctionner.
  4. K

    Sauvegarde une seule feuille en copie des valeurs seulement

    Re : Sauvegarde une seule feuille en copie des valeurs seulement Bonjour Engue, Pour ne sauvegarder que l'onglet qui t'intéresse, il faut utiliser la méthode SaveAs de l'objet Worksheet, pas Workbook : Sub SauveUneFeuille() ActiveSheet.SaveAs "C:\Users\Toto.xls" End Sub A toi de stocker...
  5. K

    Suppression d'une ligne depuis une cellule selectionné

    Re : Suppression d'une ligne depuis une cellule selectionné Bonsoir dudux2, Comme je ne suis pas sûr de ce que tu entends par "supprimé certaine cellules", je te propose deux solutions. Quand J contient "s", la première supprime les cellules des colonnes G et K, la deuxième efface le contenu...
  6. K

    Sauvegarde une seule feuille en copie des valeurs seulement

    Re : Sauvegarde une seule feuille en copie des valeurs seulement Bonsoir Engue, Avant la sauvegarde, il suffit de faire : ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial xlPasteValues Application.CutCopyMode = False
  7. K

    [XL2010] VBa: somme avec condition

    Re : [XL2010] VBa: somme avec condition Bonsoir à tous, Même remarque que Bruno, mais si tu veux absolument faire du VBA : Sub somme() Dim lngLigne As Long For lngLigne = 2 To 7 If UCase(Cells(lngLigne, 2).Value) = "ROUGE" Then Range("C16").Value =...
  8. K

    Utiliser 2 "for each" pour 2 combobox de même données ...

    Re : Utiliser 2 "for each" pour 2 combobox de même données ... Bonsoir KyFranRD, Essaie ceci: Private Sub UserForm_Initialize() Dim c As Range For Each c In Sheets("Liste").Range("E2:E128").Cells ComboBox4.AddItem Format(c.Value, "hh:nn") ComboBox5.AddItem...
  9. K

    Juste une partie du texte en surbrillance

    Re : Juste une partie du texte en surbrillance bonsoir acier, Le meilleur moyen d'avoir une réponse rapide à ce genre de question, c'est d'utiliser l'enregistreur de macro :D Et ça donne ceci :Sub Macro1() ActiveCell.FormulaR1C1 = "Partir à l'aventure" With...
  10. K

    transfert de données Excel vers un document Word

    Re : transfert de données Excel vers un document Word Bonsoir yamba, Voici le résultat de mes cogitations : Sub transfert() Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim sh As Shape For Each sh In Sheets("tableau des performances").Shapes If...
  11. K

    Comparaison de dates: souci avec le jour (VBA)

    Re : Comparaison de dates: souci avec le jour (VBA) Bonsoir à tous, Je propose une solution, qui a l'air de ne pas trop mal fonctionner. :)
  12. K

    transfert de données Excel vers un document Word

    Re : transfert de données Excel vers un document Word Bonsoir yamba, Une variable Word.Application est une variable objet représentant l'application Word, plus précisément une instance de Word. Si tu ouvres plusieurs instances de Word en même temps (si tu cliques plusieurs fois sur l'entrée...
  13. K

    transfert de données Excel vers un document Word

    Re : transfert de données Excel vers un document Word Bonsoir Yamba, Il faut activer la référence Microsoft Word 12.0.Pour celà, il faut aller dans l'éditeur VBA, menu Outils/Références..., et cocher la case Microsoft Word 12.0 (si c'est WORD 2007).
  14. K

    Erreur de formule

    Re : Erreur de formule Bonjour Sylvie64, Effectivement, c'était ça ! Toutefois, tu peux enlever le &"" final qui ne sert à rien.
  15. K

    Disparition partielle

    Re : Disparition partielle salut wilplan, Pour enlever les en-têtes de lignes et de colonnes, il faut faire : ActiveWindow.DisplayHeadings = False Par contre, pour la croix, je ne connais pas de solution, et je doute qu'il y en ait une simple. Il faut probablement modifier la base de registre...