Contenu récent par Erakmur

  1. E

    XL 2016 VBA: Validation de cellules non vide

    Cela ne fonctionne pas. 'Colonnes T vers AJ .Columns(29).Resize(, 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("3. Création du planning").Range("AJ9") C'est la colonne S qui faut copier sur AJ. A quoi correspond la colonne 29 ? La colonne S est la 19 la colonne. Tu l'as...
  2. E

    XL 2016 VBA: Validation de cellules non vide

    En plus du fichier, voici la macro complète associée au bouton bleu "actualisation du planning de maintenance" Sub Validation() Dim c As Range Sheets("2. Relevé Equipem. Prise en ch.").Select Range("G4:I2000").Select Selection.Copy Sheets("3. Création du planning").Select...
  3. E

    XL 2016 VBA: Validation de cellules non vide

    La personne qui a fait la macro a mis des crochets. J'en sais pas plus. Je constate jusque que cela fonctionne mais comme la macro s'exécute sur les 2000 cellules ca prend plusieurs minutes de calcul alors que sur les 2000 cellules il y en a qu'une centaine qui ne sont pas vides donc une grosse...
  4. E

    XL 2016 VBA: Validation de cellules non vide

    J'ai remplacé par ta formule mais cela ne fonctionne pas. Erreur d'execution 404. Application.Calculation = xlManual Application.ScreenUpdating = False For Each c In [range("AJ9:AJ2000").specialcells(xlcelltypevisible)] c = c.Formula Next Application.Calculation = xlAutomatic
  5. E

    XL 2016 VBA: Validation de cellules non vide

    A ok, je ne savais pas que c'était la même réponse ! Je pensais que le sujet était différent ! Je fais le test.
  6. E

    XL 2016 VBA: Validation de cellules non vide

    Bonjour, Cette formule permet de valider toute les cellules de AJ9 à AJ2000. Application.Calculation = xlManual Application.ScreenUpdating = False For Each c In [Aj9:Aj2000] c = c.Formula Next Application.Calculation = xlAutomatic Je voudrai qu'elle ne valide que les cellules non vides de AJ9...
  7. E

    XL 2016 VBA: Sélection d'une plage de cellules non affiché vide.

    Ok impeccable merci !
  8. E

    XL 2016 VBA: Sélection d'une plage de cellules non affiché vide.

    Bonjour, Dans Sheets("2. Relevé Equipem. Prise en ch.").Select Range("G4:I2000").Select Selection.Copy Sheets("3. Création du planning").Select Range("E9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False...
  9. E

    XL 2016 Enregistreur de macro déficient

    Tu es un génie ! J'ai également le même problème et tu viens de le résoudre. Je vais appeler notre service informatique pour qu'il résoudre ce conflit de double excel ! Quand je lance le excel avec mon identifiant de connexion il fonctionne. L'autre excel ne fonctionne pas.
  10. E

    XL 2016 Macro excel ne fonctionne plus

    Bonjour, Apparemment, oui. Voir pièce jointe.
  11. E

    XL 2016 Macro excel ne fonctionne plus

    En fait, même l'enregistreur de macro ne fonctionne plus. Voici ce qu'il me met comme macro pour copier coller: Sub Macro1() ' ' Macro1 Macro ' ' Range("A1").Select . Range("C1").Select . End Sub
  12. E

    XL 2016 Macro excel ne fonctionne plus

    Bonjour, Suite à l'échange de mon ordinateur de travail, passage d'un windows 7 pro à windows 10 mais conservation d'Excel 2016 32 bits, plus aucune macro ne fonctionne. Je vous ai mis les 2 captures de l'erreur qui apparait. Puisque aucune macro ne fonctionne, il doit s'agir d'un outils qu'il...
  13. E

    XL 2016 Faire glisser une formule sur VBA

    Merci !! Cela fonctionne
  14. E

    XL 2016 Faire glisser une formule sur VBA

    Pourquoi ta formule fait un copié collé ? Alors qu'il faut sélectionner est glisser jusqu'en bas. J'ai testé ta formule. Il me semble quelle copie une ligne et la colle en bas alors que je souhaite quelle sélectionne une plage et la glisse jusqu'à la ligne 6993
  15. E

    XL 2016 Faire glisser une formule sur VBA

    Bonjour, Malgré qu'il existe bcp de post sur le sujet sur internet. Je n'ai pas trouvé la formule VBA qui permet de faire glisser une formule: Range("A2:AJ2").Select Selection.AutoFill Destination:=Range("A6993:AJ6993"), Type:=xlFillDefault Elle ne marche pas. Il faut donc faire glisser les...
Haut Bas