Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Tu as raison j'aurais dû dire :
Si colonne H commence par la lettre O ou > O alors, mettre le texte OK dans la colonne B
Il me semblait qu'en mettant les guillemets le code prenait en compte comme pour les formules l'ensemble du critère entre guillemet.
A+
Bonjour Job75,
J'ai répondu un peu vite sur le code proposé.
Mes remarques en gras ci dessous :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, cc As Range
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each c In...
D'une, cet exemple est représentatif de mon fichier source qui a un lien avec d'autres onglets pour des extractions de données avec un ERP (inutile de vous polluer avec les autres onglets et les autres codes que j'ai créé et qui sont confidentiels).
Deuxièmement, si je vous demande un code VBA...
Bonjour tout le monde,
Merci pour vos retours.
Mea culpa si trop d'inconnues sans fichier.
Effectivement, j'ai besoin d'un code VBA.
fichier exemple en pj.
Drav.
Un "petit" bonjour déjà....
Pas besoin de fichier Excel (certains internautes les refuses par mesure de sécurité).
J'ai juste besoin d'un code pour les colonnes B et H (rien à faire sur les autres colonnes).
La pièce jointe permet simplement d'illustrer mes explications.
Bonne journée.
Drav.
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...
Merci à vous deux pour les retours.
=SI(L11="P";C11-15;SI(L11="G";C11-5;SI(L11="GP";C11-20;C11))) fonctionne parfaitement.
Tellement évident -_-
Bonne journée^^
Drav
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...
Bonjour à tous,
En fait je vais vous expliquer.
à l'époque par manque de temp, je n'ai pas voulu laisser le post en attente plusieurs mois et je l'avais validé en solution mais dans les faits je n'arrivais pas à faire fonctionner les différentes solutions proposées :(
Désolé pour cette...
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...
J'ai essayé de l'enregistrer une première fois et ensuite ça fonctionne (en gros il faut un premier enregistrement manuel pour que le code fonctionne et qu'il reconnaisse l'existence du fichier).
Si je ne fais pas un premier enregistrement, j'ai ce message d'erreur.
Drav.
Bonjour Yeahou
L'enregistrement auto ne se fait pas avec dans le module standard.
J'ai un message d'erreur :
Code module 1 :
Public Time_Enr As Double
Sub Enregistre()
Time_Enr = Now + TimeValue("00:01:00")
Application.OnTime Time_Enr, "Enregistre"
Application.DisplayAlerts = False...
Bonjour Yeahou
Merci pour ce retour, je teste ça demain (mais ça me paraît répondre parfaitement au point 2).
Si vous avez des idées pour compléter ce code pour le point 1 je suis preneur.
Bonne soirée.
Drav.
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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.