Résultats de la recherche

  1. D

    Microsoft 365 Insérer texte dans colonne x si colonne y commence par...

    Bonjour tout le monde, besoin d'aide sur le sujet ci-dessous svp : 1- J'ai une colonne B avec du texte et des cellules vides 2- J'ai une colonne H avec du texte également Explications : À partir de la ligne 2. Si colonne H commence par la lettre O ou > alors, mettre le texte OK dans la colonne...
  2. D

    Microsoft 365 Condition avec plusieurs textes

    Bonjour à tous, Je cherche une formule pour ces conditions : Info: La formule est à mettre dans la cellule A11 La cellule C11 est une date Si la cellule L11 contient "*P*" alors A11 = C11-15 (càd date en C11 moins 15 jours) Si la cellule L11 contient "*G*" alors A11 = C11-5 Si la cellule L11...
  3. D

    Microsoft 365 Créer une boucle sur une plage de cellules

    Bonjour à tous, Je cherche à créer une boucle plutôt que de créer 150 lignes de code. pouvez-vous m'aider ? If CStr([C148]) <> "" And Intersect(ActiveCell, [D148]) Is Nothing Then _ If CStr([D148]) = "" Then [D148].Select: MsgBox "Renseignez le problème ex : HS, perdu..." End Sub Si je...
  4. D

    Microsoft 365 Enregistrement automatique et sans confirmation

    Bonjour à tous, J'ai besoin de votre aide pour compléter ce code (en même temps si je n'avais pas besoin d'aide, ce post n'existerai pas) ^^ J'ai 2 requêtes : 1- Enregistrer automatiquement toutes les 5 minutes par exemple 2- Forcer l'enregistrement sans me demander une confirmation après le...
  5. D

    Microsoft 365 Documenter la cellule sélectionnée à partir d'un useform

    Re-Bonjour, Pour finaliser mon projet, je souhaiterai que mon useform ci-dessous viennent documenter mes cellules en fonction de mes choix. Actuellement, elle se trouve dans un module mais ne fait pas le lien avec les cellules. Quand je sélectionne ma cellule et que j'effectue un choix, elle...
  6. D

    Microsoft 365 Activer "useform" dans une ou plusieurs cellules

    Bonjour à tous, Je voudrais activer un useform dans plusieurs cellules (que j'aurais préalablement défini). Dans cette exemple simple sur la cellule A1, mon code s'active sur toute les cellules (dés que je clique dans une cellule de ma feuille, le useform s'active)... Private Sub...
  7. D

    XL 2019 Insérer texte spécifique après chaque cellule non vide dans plusieurs colonnes

    Bonjour à tous, Encore besoin de votre aide^^ Je recherche un code VBA pour insérer du texte dans plusieurs cellules vides. Exemple : insérer texte "S19" dans dans la première cellule vide (ou après la dernière non vide) des colonnes A,B,C,E,G,H,I Le principe est de pouvoir changer mon texte...
  8. D

    XL 2019 Copier / Coller des cellules d'un classeur dans un autre classeur

    Bonjour à tous, Je souhaiterais copier certaines cellules d'un classeur pour les coller à la fin d'un tableau (donc 1ière ligne vide) en gardant le format du fichier destination. Ma macro ci-dessous s'exécute correctement mais ne recherche pas la dernière ligne après chaque lancement... Il...
  9. D

    XL 2019 Ne pas prendre en compte les #valeur! dans la formule

    Bonjour à tous, Un petit coup de pouce ne serait pas de refus^^ J'ai une formule qui ne fonctionne pas si une(des) cellule(s) n'est(ne sont) pas documentée(s). Exemple sur cellule G8 ...
  10. D

    XL 2019 Créer une boucle

    Bonjour à tous, Je souhaiterais créer une boucle avec le code ci-dessous afin de répéter le renseignement de [R24:R43,R45:R48] avec [L24:L43,L45:L48]. càd Si R25 non vide, documenter L25 Si R26 non vide, documenter L26 ..... ..... Voici mon code qui fonctionne bien sur ma...
  11. D

    XL 2019 Modifier les bordures (ou entourer) des cellules aux valeurs mini et maxi

    Bonjour à tous, Voilà, une nouvelle fois j'ai besoin de votre aide (toujours dans un de mes projets). Je souhaiterais identifier la cellule mini et la cellule maxi dans une plage de valeurs [D19:I22;D24:I43;D45:I48] et modifier leurs bordures (trait plein en gras et rouge) ou entourer les 2...
  12. D

    XL 2019 Playsound ne fonctionne pas

    Bonjour à tous, Voilà, je rencontre un pb (en même tps si j'en avais pas je serais pas là... ). :) J'avais une macro qui déclenchait le playsound et qui fonctionnait très bien et maintenant que j'ai changé de macro (pour l'améliorer), le playsound ne veut plus s'activer. 1ière vba qui...
  13. D

    XL 2019 Remplacer .Value < par une formule de calcul

    Bonjour à tous, J'aimerai remplacer .value < 35 par une formule de type .formula = "i10*0.7" sachant que ma cellule i10 est fusionnée avec i11 et répéter cette opération de la cellule D19 à D48 If Target.Address = Range("d19").Address And Range("d19").Value < 35 Then à votre écoute^^
  14. D

    XL 2019 Alerte "beep" après saisie et tabulation

    Bonjour à tous, L'alerte "beep" de ma macro se déclenche lorsque je clique sur la cellule. J'aimerai qu'elle se mette en route (après la saisie) après la tabulation ou lorsqu'on clique sur une autre cellule. De plus, j'ai mis une valeur < à 35 alors que j'aimerai une formule =< "i10 x"*0.7 à...
  15. D

    XL 2019 Créer une boucle ou répéter une macro sur plusieurs lignes

    Bonjour à tous, Je souhaiterai répéter ma macro ci-dessous sur plusieurs lignes (jusqu'à la ligne 48). Dans l'exemple ci-dessous je l'ai crée pour 3 lignes, j'aimerai éviter de le faire 48 fois :) Avez-vous une idée comment faire svp (faut-il faire une boucle ou y a t-il un autre moyen) ? ...
  16. D

    XL 2019 Cocher une case en décoche une autre et inversement

    Bonjour à tous, Dans la macro ci-dessous lorsque je coche H18 je voudrais que J18 soit décoché (et inversement) D'ailleurs j'aimerais apporter les mêmes fonctionnalités pour Q,R,S Avez-vous la soluce ?^^ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim isect, Z$, plage If...
  17. D

    XL 2019 mettre 2 worksheet différents sur la même feuille

    Bonjour à tous, Sauriez-vous comment je peux intégrer 2 worksheet dans une même feuille ? 1ière macro Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim isect, Z$, plage If Target.Count = 1 Then Z = Target.Value plage = "h18" Set isect = Application.Intersect(Target...