> Tous les forums > Forum Bureautique
 recherche efface ligneSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
aiglon74
  Posté le 27/10/2007 @ 08:51 
Aller en bas de la page 
Petit astucien
BONJOUR A TOUS

Le but de ma macro et le suivant

Recherche dans la colonne A la ligne dans la page nome base

Dont le résultat correspond à la cellule E 10 de la page modiffiche

Et effacer le contenu de cette ligne

Voici ma séance

problème elle n’efface pas le contenu de la ligne juste la cellule dans la colonne A

A = Sheets("modiffiche").Range("E10")Sheets("base").ActivateFor Each ligne In Range("A5:A8000")If ligne = A Then ligne.ClearContents

Par avance merci

AIGLON74
Publicité
gilbert_rgi
 Posté le 27/10/2007 à 10:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Comme ceci

VBA
  1. A = Sheets("modiffiche").Range("E10")
  2. Sheets("base").Activate
  3. For Each ligne In Range("A5:A8000")
  4. If ligne = A Then Rows(ligne.Row).ClearContents
  5. Next

Cdlt

RGI

aiglon74
 Posté le 27/10/2007 à 11:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

RE BONJOUR

EN FAISANT CETTE MODIF CA MARCHE SUPER

A = Sheets("modiffiche").Range("E10")
Sheets("base").Activate
For Each ligne In Range("A5:A8000")
If ligne = A Then
ligne.EntireRow.ClearContents

MERCI POUR L'AIDE

AIGLON74

gilbert_rgi
 Posté le 27/10/2007 à 11:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

aussi

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
Tondeuse à gazon sans fil Bosch CityMower 18 (18V, 1 batterie 4.0 Ah, 32 cm, 300 m²)
219,58 € 316,99 € -31%
@Amazon Allemagne
Scie circulaire sans fil Bosch Professional GKS 12V-26 85 mm avec L-Boxx et 2 batteries 3 Ah et chargeur
189,99 € 233 € -18%
@Amazon
Batterie Bosch Professional 18V System 5Ah
62,01 € 72 € -14%
@Amazon Allemagne
Souris sans fil Logitech Signature M650 L
28,75 € 44,99 € -36%
@Amazon
SSD WD Black SN850X 8 To (PCIe Gen4, NMVe M.2, 7300 Mo/s)
572,63 € 900 € -36%
@Amazon
Barre de son 7.1 ULTIMEA Poseidon D80 (460W, Dolby Atmos, Bluetooth 5.3) + 1 paire de supports d'enceintes
249 € 329 € -24%
@Geekbuying

Sujets relatifs
recherche la ligne et passe a la suivante
Recherche et relever des indications de la ligne
Utiliser N° ligne après recherche pour sélection
Recherche de la dernière valeur d'une ligne
Recherche à telecharger Custom UI Editor
[VBA+suppression conditionnelle de ligne]
copier ligne si cellule vide
Recherche écrans 14 ou 15 pouces
Document modifiable en ligne
Thunderbird des majuscules en début de ligne
Plus de sujets relatifs à recherche efface ligne
 > Tous les forums > Forum Bureautique