copier cellule voisine selon cellule active

[doudouq]

Bonjour à tous,

j'ai un tableau importé depuis un fichier PDF que je souhaiterais "filtré" avec seulement quelques valeurs.

Etant très novice en VB,je vais essayer d'être clair dans ma demande.

Dans ma feuille source, à chaque cellule "Nb Étages", je souhaite copier dans une autre feuille(dest) certaines cellules environnantes.

comme elle devient la cellule de reférence(C,L), par example pour la valeur Nb étages j'aurais (C+1,L) et l'adresse du propriétaire serait (C-1,L+2).

D'avance un GROS merci pour votre aide.

 

[Compte Supprimé 979]

Re : copier cellule voisine selon cellule active

Salut Doudouq,

Tu peux essayer ce code en le complétant selon ce que j'ai déjà mis 😉

Sub CopieAdr()
  Dim DerLigS As Long, NextLigD As Long, Lig As Long
  Dim ShtD As Worksheet
  ' Définir la feuille de destination
  Set ShtD = Sheets("dest")
  ' Avec la feuille source
  With Sheets("Source")
    ' Récupérer la dernière ligne non vide de la feuille, colonne A
    DerLigS = .Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque groupe de 7 lignes
    For Lig = 1 To DerLigS Step 7
      NextLigD = ShtD.Range("A" & Rows.Count).End(xlUp).Row + 1
      ShtD.Range("A" & NextLigD).Value = .Range("B" & Lig)
      ShtD.Range("B" & NextLigD).Value = .Range("C" & Lig)
      ShtD.Range("C" & NextLigD).Value = .Range("D" & Lig)
      ShtD.Range("D" & NextLigD).Value = .Range("Q" & Lig)
      ' Etc ...
    Next Lig
  End With
End Sub

Avant d'exécuter le code, vide la feuille de destination à part la ligne d'entête

Nota : ton nombre de groupe de ligne semble différend pour

3308990015041506boulevard Pie-IX

A+

 

[doudouq]

Re : copier cellule voisine selon cellule active

Salut BrunoM45,

Merci ta réponse ultra-rapide, ça éclaire pas mal ma lanterne.

En fait ce n'est pas toutes les 7 lignes qu'on retrouve les mêmes champs.

Dans l'exemple j'ai une adresse sans avoir d'étages (terrain,etc...).. ca me prendrait une boucle où on teste si la colonne B contient la valeur "Nb étages" qui servira de référence.

je vais continuer à creuser....

D.