J'ai essayé plusieurs solutions pour essayer d'écrire dans ces cellules mais rien n'y fait... comme s'il était impossible d'écrire dans des cellules Excel depsui VBA... Peut-être ya t'il un problème dans la syntaxe... quelqu'un aurait une idée? Merci pour votre aide! Pour info: Excel 2002, SP1 VB 6. 3 19/03/2007, 16h21 #2 Tu veux bien, si tu trouves le caractère dans ta plage, quitter la fonction et passer au mot suivant? alors je simplifierais déjà cette ligne. If (InStr(1, return_str, sub_str, vbBinaryCompare) = 0) Then et, à la place, je mettrais If InStr ( lcase ( return_str), lcase ( sub_str)) <> 0 Then exit function Je regarde si je vois autre chose 19/03/2007, 17h15 #3 Bon, j'ai lu ailleurs dans le forum qu'il n'était pas possible d'écrire dans des cellules à partir d'un fonction elle-même appelée depuis une cellule. Je suis donc passé par un Userform et là tout va bien.... Merci pour ton aide! 19/03/2007, 17h22 #4 Si tu disais tout Voici une solution pas chère 1 2 3 4 5 6 7 8 9 10 11 Sub EcrireDansUneCelluleDepuisUneFonction () r = LaFonction ( 5) End Sub Function LaFonction ( LaVal) Call InsérerValeur ( LaVal * 5) Sub InsérerValeur ( LaVal) Cells ( 1, 1) = LaVal A+ + Répondre à la discussion Cette discussion est résolue.
Déplacement de la cellule active Utilisez la méthode tivate pour désigner la cellule active. Par exemple, la procédure suivante montre comment activer la cellule B5, puis comment lui affecter le style gras. Sub SetActive_MakeBold() Worksheets("Sheet1")("B5"). Activate = True Remarque: pour sélectionner une plage de cellules, utilisez la méthode Select. Pour activer une cellule active, utilisez la méthode Activate. Utilisez la propriété Offset pour déplacer la cellule active. La procédure suivante montre comment insérer du texte dans la cellule active de la plage sélectionnée puis déplacer la cellule active 1 d'une cellule vers la droite sans modifier la sélection. Sub MoveActive() Range("A1:D10") = "Monthly Totals" (0, 1). Activate Sélection des cellules entourant la cellule active La propriété CurrentRegion renvoie une plage ou un « îlot » de cellules délimitées par des lignes et des colonnes vides. Dans l'exemple suivant, la sélection est étendue pour inclure les cellules qui contiennent les données immédiatement adjacentes.
e est la suite de ce billet. Nous allons maintenant voir comment crire des formules plus complexes Pour tous les plages de donnes voques plus bas la cellule de dpart est la cellule A1 et la premire ligne contient les tiquettes de colonnes. Comment crire une formule plus complexe dans une cellule? Prenons la formule dont la syntaxe est (Plage;Critre) et qui a pour but de compter le nombre de cellules rpondant au critre. Pour illustrer notre exemple, imaginons une plage de donnes A1:F31 dont les cellules de la colonne C contiennent le nom d'une ville. Le but sera donc de compter le nombre de fois que le critre (ici Marseille) se retrouve dans la plage C2:C31 la formule sera donc ( $C$ 2:$C$ 31; "Marseille") Soit en VBA aprs avoir utilis l'astuce prsente dans le premier article 1 2? range ( "H2"). Formula =COUNTIF ( $C$ 2:$C$ 31, "Marseille") Comment traiter les constantes alphanumriques dans une formule?
Bonjour, J'ai un souci que je ne parviens pas à résoudre. Il s'agit d'écrire dans une cellule la valeur d'une variable texte. La valeur de cette variable est elle-même issue de la valeur d'une autre cellule (en fonction de quelques tests préalables).
VB: Private Sub CommandButton1_Click() ("E6"). FormulaR1C1 = "=COUNTIFS(Feuil1! R2C6:R115C6, ""*""&'Feuil2'! RC[-1]&""*"", Feuil1! R2C2:R115C2, ""G2150A"")" La formule est bien insérée sur la Feuille 2 EDITION Avec ce code, la formule est copiée puis coller en valeur seules en colonne D sur la feuille 2 ("E6:E32"). FormulaR1C1 = "=COUNTIFS(Feuil1! R2C6:R115C6, ""*""&'Feuil2'! RC[-1]&""*"", Feuil1! R2C2:R115C2, ""G2150A"")" ("D6:D32") = ("E6:E32") Tu peux joindre un exemple de classeur? #3 Bonjour Essaye: reenUpdating = False With Sheets("Feuil2"). Activate ("E6"). FormulaR1C1 = _ "=COUNTIFS(Feuil1! R2C6:R115C6, ""*""&RC[-1]&""*"", Feuil1! R2C2:R115C2, ""115"")" ("E6:E32"). FillDown ("D6:D32") ("E6"). PasteSpecial Paste:=xlPasteFormats ("E35") End With #4 Bonjour Yuperqod et Chris401, Un grand merci à tous les 2, vos 2 codes fonctionnent parfaitement bien. Voici un fichier d'exemple dans lequel j'ai insérer vos codes, si ça peut aider quelqu'un à ce sujet. Encore un grand merci. Travailler dans autre 24.
Réponse: Grâce à la classe Characters de VBA. Le code de base à utiliser est le suivant: Range(X). Characters(Y, Z) = True où X est votre cellule, Y est le numéro de caractère où commence la partie en gras et Z est le nombre de caractères qui doivent être en gras. Exemple: Si vous avez le texte " ceci est une promotion " dans la cellule " B1 " et vous voulez mettre en gras le mot " promotion ", l'instruction VBA ressemblera à ceci: Range("B1"). Characters(13, 9) = True Ceci est le code VBA basique – pour pouvoir l'utiliser, vous devez connaître le numéro du caractère par lequel la partie formatée en gras commence ainsi que la longueur du texte qui doit être gras. Ce qui n'est pas très commode, ni très pratique. Mais il y a toujours une solution… VBA: mettre en gras un mot spécifique dans le texte Si vous voulez mettre en gras un mot (ou un groupe de mots) en particulier, vous pouvez procéder de la manière suivante: Range(X). Characters(InStr(1, Range(X), "Y"), Len("Y")) = True où X est votre cellule et "Y" est le mot (groupe de mots ou groupe de caractères) qui doit être formaté en gras.
Pour une cuisson saine à 100%, sans PFOA et sans aluminium, offrez-vous ce set de cinq casseroles en inox 18/4 de la gamme ARTHUR MARTIN. Dotées chacune de bec verseur et d'un intérieur gradué, elles seront parfaites pour vos préparations liquides et autres sauces. Intérieur inox mat, extérieur inox brillant. Compatible tous feux dont induction. Battery de casseroles inox professionnel 2017. Facile d'entretien, vous pouvez les nettoyer au lave vaisselle. Le conseil de notre spécialiste Nettoyage de votre ustensile intérieur inox: Nous vous conseillons de laver votre ustensile à la main avec une éponge douce et de l'eau savonneuse puis d'essuyer avec un chiffon doux. Petite astuce: En cas d'apparition de tâches ou autres à l'intérieur de l'ustensile, faire bouillir de l'eau avec des zestes de citron ou additionnée de vinaigre blanc. Vous pouvez également frotter les tâches avec un chiffon doux imbibé de jus de citron / vinaigre blanc. Informations produit épaisseur 0, 7mm inox 18/4 Revêtement intérieur Inox mat Où retrouver ce produit Confort d'utilisation Compatibilité lave-vaisselle oui Revêtement extérieur Inox brillant Réf / EAN: 68689 / 3508510047197 Batterie de 5 casseroles Induction inox professionnel Avis clients (340) 4.
Numéro de l'objet eBay: 224919590961 Le vendeur assume l'entière responsabilité de cette annonce. Caractéristiques de l'objet Neuf: Objet neuf et intact, n'ayant jamais servi, non ouvert, vendu dans son emballage d'origine... Numéro de pièce fabricant: Set de casseroles, poêles Compatibilité lave-vaisselle: Type de cuisinière compatible: Électrique, Gaz, Induction Le vendeur n'a indiqué aucun mode de livraison vers le pays suivant: Brésil. Batterie de casseroles inox professionnel gestion durable des. Contactez le vendeur pour lui demander d'envoyer l'objet à l'endroit où vous vous trouvez. Lieu où se trouve l'objet: poulan, Midi-Pyrénées, France Biélorussie, Russie, Ukraine Envoie sous 2 jours ouvrés après réception du paiement. Remarque: il se peut que certains modes de paiement ne soient pas disponibles lors de la finalisation de l'achat en raison de l'évaluation des risques associés à l'acheteur.
Cuisine > Plan de travail, crédence et fond de hotte > Accessoire pour plan de... Cuisine > Plan de travail, crédence et fond de hotte > Accessoire pour plan de travail de cuisine > Accessoire de rangement pour cuisine DKSFJKL, Caractéristiques: Avec un design élégant et stylé, le bouton du couvercle du pot ne sera jamais dépassé.... - 44% Moule à pain ondulé en acier i... Moule à pain ondulé en acier inoxydable, plateau à casseroles, outil à gâteau... Battery de casseroles inox professionnel sur. Moule à pain ondulé en acier inoxydable, plateau à casseroles, outil à gâteau pratique, Baguette Ensemble de 3 casseroles Arthu... Aujourd'hui Groupon propose cet ensemble de casserole distribué par LG-Expro.... Aujourd'hui Groupon propose cet ensemble de casserole distribué par LG-Expro.
Livraison à domicile Estimée le 01/06/2022 7, 00€ Pour les produits vendus par Auchan, votre commande est livrée à domicile par La Poste. Absent le jour de la livraison? Vous recevez un email et/ou un SMS le jour de l'expédition vous permettant de confirmer la livraison le lendemain, ou de choisir une mise à disposition en bureau de poste ou Point Relais. Livraison express en point retrait Estimée le 31/05/2022 8, 00€ Votre commande est livrée dans le Point Relais Express de votre choix et sera disponible un jour ouvré après l'expédition de votre commande. Batterie De 5 Casseroles Tous Feux Induction Inox Professionnel | eBay. Souvent ouverts jusqu'à 19h30 et parfois le week-end, les 7000 Points Relais Express disponibles en France offrent l'avantage d'être proches de votre domicile ou de votre lieu de travail. Livraison express à domicile Estimée le 31/05/2022 10, 00€ Votre commande est livrée en express à domicile et avant 18h le lendemain. Vous pensez être absent le jour de la livraison? Vous recevez un email et/ou un SMS le jour de l'expédition vous permettant de choisir une autre date.