> Tous les forums > Forum Bureautique
 Macro - déctecter un caractère dans une cellule
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
kamylya
  Posté le 16/06/2006 @ 17:21 
Aller en bas de la page 
Nouvelle astucienne
Bonjour à tous, j'effectue un test sur la cellule A, afin de vérifier si elle contient le caractère °. Pour cela j'utilise cette formule : ActiveCell.FormulaR1C1 = "=COUNTIF(RC1,""*°*"")=0". Le résultat est vrai ou faux que j'affiche dans la colonne F. je commence à partir de la colonne A2. Mon problème est que je n'arrive pas à faire le test sur toute la colonne A. C'est à dire effectuer une boucle sur ce test autant de fois qu'il n'y a de cellules remplies. Pouvez-vous m'aider svp? Merci d'avance
Publicité
pat1545
 Posté le 16/06/2006 à 17:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Salut, pas de boucle: Range("F1").Select ActiveCell.FormulaR1C1 = "=COUNTIF(C[-5],""*°*"")=0" Bye
kamylya
 Posté le 16/06/2006 à 18:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne
Je Vous remercie pour votre réponse, mais ça ne marche pas. j'ai toujours un seul résultat sur la première colonne de F( dans F1). Il ne fait le test sur la ligne suivante et ainsi de suite. j'ai besoin qu'il fasse le test sur A2 puis A3, A4, A5,etc. c'est peut être plus clair là. Merci
galopin01
 Posté le 16/06/2006 à 18:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonsoir et bienvenue sur PCA, ça devrait faire ton affaire (à condition qu'il n'y ait pas de "trou" dans la colonne A):[code]Sub Test() iR = 1 Do While Cells(iR + 1, 1) <> "" Cells(iR + 1, 6).FormulaR1C1 = "=COUNTIF(RC1,""*°*"")=0" iR = iR + 1 Loop End Sub[/code] A+

Modifié par galopin01 le 16/06/2006 18:27
kamylya
 Posté le 16/06/2006 à 18:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne
Merci beaucoup! Ca marche nickel. Bon Week End
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
14,88 €Coffret d'embouts de vissage et à cliquet Bosch 26 pièces à 14,88 €
Valable jusqu'au 04 Mars

Amazon fait une promotion sur le coffre de 32 pièces d'embouts de vissage qui passe à 13,50 € au lieu de 16 €. Il comporte un porte embout universel à changement rapide et des embouts PH1/PH2/PH2/PH3/PZ1/PZ2/PZ2/PZ3/HEX 3/HEX 4/HEX 5/HEX 6/T10/T15/T20/T20/T25/T27/T30/T40.


> Voir l'offre
105 €SSD externe USB 3.1 PNY Elite CS1050 960 Go à 105 €
Valable jusqu'au 04 Mars

Amazon fait une promotion sur le SSD externe USB 3.1 PNY Elite CS1050 960 Go qui passe à 105 € livré gratuitement alors qu'on le trouve ailleurs à partir de 130 €. Ce SSD externe ultra compact (5,99 x 3,56 x 0,89 cm, 50 grammes) offre des vitesses allant jusqu'à 420 Mo/s en lecture et en écriture.


> Voir l'offre
799,90 €Ultrabook HONOR MagicBook Pro 16.1 (Core i5-10210U, 16Go, 512 Go SSD, GeForce 350MX) à 799,90 €
Valable jusqu'au 05 Mars

HONOR fait une promotion sur son ultrabook HONOR MagicBook Pro 16.1 qui passe à 799,90 € au lieu de 999 € grâce un coupon de réduction à activer sur la page du produit. Cet ordinateur portable possède un écran 16.1 pouces Full HD IPS 100% sRGB, un processeur Intel Core i5-10210U à 4 coeurs, une carte graphique GeForce MX350, 16 Go de mémoire DDR4, un SSD 512 Go PCIe NVME, le WiFi5 / Bluetooth 5.0, un lecteur d'empreintes, une webcam, un clavier rétro éclairé, une batterie 56 Wh (jusqu'à 11h d'autonomie et recharge rapide) et ne pèse que 1,7 kg. Il fonctionne sous Windows 10. Une très bonne affaire pour une machine compacte et puissante.

Vous pourrez également choisir un lot de 2 ou 3 cadeaux gratuits parmi une sélection (souris, casque bluetooth, écouteurs, haut-parleur, tracker d'activité, ...). La livraison est également gratuite.


> Voir l'offre

Sujets relatifs
se positionner avec une macro dans une cellule précise
Execution macro lors d'une saisie dans une cellule
afficher un calendrier dans une macro de cellule
2 pages par feuille dans macro excel
Recopie cellule par macro
case à cocher dans cellule Excel 2010
Creation d' une boucle macro dans fichier EXCEL pour impression
Recopie cellule dans un autre classeur
Word 2007-Texte centré dans une cellule
macro afficher masquer lignes tableau dans word 2010
Plus de sujets relatifs à Macro - déctecter un caractère dans une cellule
 > Tous les forums > Forum Bureautique