> 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
Clavier Logitech K280e à 16,86 €
16,86 € 29,99 € -44%
@Amazon
Disque dur externe Western Digital My Book 12 To USB 3.0 à 258,60 €
258,60 € 315 € -18%
@Amazon Allemagne
VTT électrique Touroll B1 (26 pouces, Shimano 7 vitesses, 90 km) à 499 €
499 € 700 € -29%
@Geekbuying
Disque dur externe Western Digital Elements Desktop USB 3.0 20 To à 397,59 €
397,59 € 490 € -19%
@Amazon Allemagne
Tablette 11 pouces Xiaomi Redmi Pad SE (FHD+, Snapdragon 680, 8Go/256Go, Android 13) à 128,21 €
128,21 € 199,99 € -36%
@AliExpress
Kit de 32 Go (2 x 16 Go) de mémoire DDR5 Corsair Vengeance 6000 MHz CL36 à 85,21 €
85,21 € 110 € -23%
@Amazon Allemagne

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