Rechercher un mot et copier sa ligne
Fermé
amelmotiv
-
10 janv. 2009 à 22:36
mikebzh Messages postés 127 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 11 mars 2009 - 11 janv. 2009 à 01:11
mikebzh Messages postés 127 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 11 mars 2009 - 11 janv. 2009 à 01:11
A voir également:
- Rechercher un mot et copier sa ligne
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Mot de passe administrateur freebox ✓ - Forum Freebox
- Piratage facebook changer mot de passe - Guide
- Mettre un mot de passe sur un dossier - Guide
3 réponses
mikebzh
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
28
10 janv. 2009 à 23:35
10 janv. 2009 à 23:35
Salut
Propriété Offset
Pour renvoyer une plage avec un décalage spécifié dans une autre plage, spécifiez Offset(row, column), row et column définissant les décalages de ligne et de colonne.
Pour les lignes tu as décalé en offset(i,0) essayes offset(0,i) pour les colonnes
Sinon ton code est pas joli, joli et il y a moyen de chercher en lignes et colonnes en même temps
Cherches bien (petit info : regardes bien les propriétés de range)
Bon courage
Propriété Offset
Pour renvoyer une plage avec un décalage spécifié dans une autre plage, spécifiez Offset(row, column), row et column définissant les décalages de ligne et de colonne.
Pour les lignes tu as décalé en offset(i,0) essayes offset(0,i) pour les colonnes
Sinon ton code est pas joli, joli et il y a moyen de chercher en lignes et colonnes en même temps
Cherches bien (petit info : regardes bien les propriétés de range)
Bon courage
mikebzh
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
28
11 janv. 2009 à 00:27
11 janv. 2009 à 00:27
Je ne comprends plus ce que tu veux faire exactement
mikebzh
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
28
11 janv. 2009 à 01:11
11 janv. 2009 à 01:11
Peut-être un truc du style
Là je scanne dans chaque ligne les colonnes
[code]
Option Explicit
Private Sub CommandButton1_Click()
Dim zone As Range 'zone de travail
Dim ligne As Range 'ligne
Dim colonne As Range 'colonne
Dim origine As Worksheet 'feuille de recherche
Dim destination As Worksheet 'feuille de copie
Dim lignedest As Integer 'ligne dans feuille copie
Set origine = Worksheets("Feuil1")
Set destination = Worksheets("Feuil2")
Set zone = Range(origine.Cells(1, 1), origine.Cells(1, 1).SpecialCells(xlLastCell))
lignedest = 1
'Pour toutes les lignes de la selection on regarde
For Each ligne In zone.Rows
'si dans une des colonnes
For Each colonne In ligne.Columns
'il y a le mot directeur
If colonne.Cells(1, 1).Value = "directeur" Then
ligne.Copy destination.Cells(lignedest, 1)
lignedest = lignedest + 1
'on a trouvé on a copié et on sort sans regarder le reste des colonnes
Exit For
End If
Next
Next
End Sub
[\code]
Bonne nuit à demain
Là je scanne dans chaque ligne les colonnes
[code]
Option Explicit
Private Sub CommandButton1_Click()
Dim zone As Range 'zone de travail
Dim ligne As Range 'ligne
Dim colonne As Range 'colonne
Dim origine As Worksheet 'feuille de recherche
Dim destination As Worksheet 'feuille de copie
Dim lignedest As Integer 'ligne dans feuille copie
Set origine = Worksheets("Feuil1")
Set destination = Worksheets("Feuil2")
Set zone = Range(origine.Cells(1, 1), origine.Cells(1, 1).SpecialCells(xlLastCell))
lignedest = 1
'Pour toutes les lignes de la selection on regarde
For Each ligne In zone.Rows
'si dans une des colonnes
For Each colonne In ligne.Columns
'il y a le mot directeur
If colonne.Cells(1, 1).Value = "directeur" Then
ligne.Copy destination.Cells(lignedest, 1)
lignedest = lignedest + 1
'on a trouvé on a copié et on sort sans regarder le reste des colonnes
Exit For
End If
Next
Next
End Sub
[\code]
Bonne nuit à demain
10 janv. 2009 à 23:52
en fait, la macro doit chercher si dans la cellule "A1" il y a le mot directeur, si oui, on colle la ligne dans une autre feuille, sinon on ne fait rien. Puis on repète l'opération jusque la cellule A10. C'est pour ça que j'ai utilisé la fnction offset
10 janv. 2009 à 23:56
Encore merci
11 janv. 2009 à 00:05