> Tous les forums > Forum Bureautique
 Automatisation Excel 2010Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
cdr
  Posté le 29/12/2017 @ 17:01 
Aller en bas de la page 
Petit astucien

Bonjour,

j'ai un tableau très grand à compléter automatiquement.

Je souhaite passer de :

à

C'est à dire que les 3 colonnes CDE se complètent avec les mêmes valeurs que leur "en-tête", jusqu'à ce qu'il y ait un nouvel "en-tête" OU que la colonne "F" soit vide.

Merci par avance.

Je pensais avoir déjà posté cette demande aujourd'hui.

Je ne la trouve pas dans mes suivis...

Si vous l'avez en double, pardon pour ça...

Merci et passez tous de très bonnes fêtes.

CDR

Publicité
Debrief
 Posté le 29/12/2017 à 21:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Avec des formules c'est un complexe et peu portable.

Je ne vois qu'une macro de ce type

Sub Comble()
Dim DerF As Long
Dim i As Long
Dim Mem() As Variant
Dim Valorise As Boolean

DerF = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row

For i = 1 To DerF
If Not IsEmpty(ActiveSheet.Range("C" & i)) Then
If IsEmpty(ActiveSheet.Range("F" & i)) Then Valorise = False Else Valorise = True
Mem = ActiveSheet.Range("C" & i & ":" & "E" & i).Value
Else
If IsEmpty(ActiveSheet.Range("F" & i)) Then Valorise = False
If Valorise Then ActiveSheet.Range("C" & i & ":" & "E" & i).Value = Mem
End If
Next i
End Sub

Cordialement,
D.

Edit: modifié pour remplacer 3 variables par un tableau



Modifié par Debrief le 30/12/2017 08:21
ferrand
 Posté le 29/12/2017 à 23:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir, Salut Debrief !

Une autre méthode...

Sub Compléter()
Dim d%, f%
With ActiveSheet
f = 1
Application.ScreenUpdating = False
Do While .Cells(f, 6) <> ""
If .Cells(f, 3) <> "" Then
d = f: f = f + 1
Do While .Cells(f, 6) <> "" And .Cells(f, 3) = ""
f = f + 1
Loop
If f - d > 1 Then
With .Cells(d, 3).Resize(, 3)
.AutoFill .Resize(f - d), xlFillCopy
End With
End If
Else
f = f + 1
End If
Loop
End With
End Sub

Cordialement.

Debrief
 Posté le 30/12/2017 à 08:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut Ferrand,

Belle alternative en effet.

Les 2 versions n'interprètent pas exactement de la même manière la condition énoncée par cdr: "jusqu'à ce qu'il y ait un nouvel "en-tête" OU que la colonne "F" soit vide." qui peut effectivement s'interpréter de différentes manières

A cdr de voir ou préciser.

Cordialement,
D.

cdr
 Posté le 30/12/2017 à 14:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à vous deux,

merci.

La macro "Comble" me... comble.

Je n'ai pas essayé l'autre mais un grand merci à vous deux.

Bonnes fêtes

ferrand
 Posté le 30/12/2017 à 15:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Debrief a écrit :

Les 2 versions n'interprètent pas exactement de la même manière la condition énoncée par cdr: "jusqu'à ce qu'il y ait un nouvel "en-tête" OU que la colonne "F" soit vide." qui peut effectivement s'interpréter de différentes manières

Bien vu ! En fait c'est la condition d'arrêt définitif qui n'est pas exprimée clairement, ce qui peut faire une différence selon la structure du tableau et les intentions...

Cordialement.

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
84,50 €Disque dur externe portable Toshiba Canvio Basics 4 To USB 3.0 à 84,50 €
Valable jusqu'au 24 Octobre

Amazon propose actuellement le disque dur externe portable Toshiba Canvio Basics 4 To USB 3.0 à 84,50 € seulement ! Avec ses 4 To et sa connectique USB 3.0 compatible USB 2.0, vous aurez de quoi stocker rapidement et emporter avec vous vos photos, vos films, etc.  La livraison est gratuite.


> Voir l'offre
1349,99 €PC portable 15,6 pouces HP Omen (R7 5800H, 16Go/SSD 512Go, GeForce RTX 3070) à 1349,99 € (via ODR)
Valable jusqu'au 25 Octobre

Cdiscount fait une belle promotion sur le PC portable HP Omen 15-en1006nf qui passe à 1499,99 €. Or HP rembourse actuellement 150 € pour l'achat de cet ordinateur qui vous reviendra à 1349,99 € après remboursement. On le trouve ailleus à plus de 2000 €.

e portable dispose d'un écran 15,6 pouces Full HD IPS (1920 x 1080 pixels) à 144 Hz, d'un processeur AMD Ryzen 7 5800H à 8 coeurs, de 16 Go de RAM, d'un SSD NVMe de 512 Go. Il intègre également une carte graphique dédiée GeForce RTX 3070 8 Go.

Il possède 4 ports USB 3.2, un port USB 3.2 Type C, un lecteur de carte mémoire, une webcam, le WiFi 6, bluetooth 5.0 et un port Ethernet Gigabit. Il tourne sous Windows 10. Un ordinateur très performant, parfait pour un usage bureautique, multimédia et gaming.


> Voir l'offre
35,99 €Clé USB Sandisk Ultra Go 256 Go à double connectique USB 3.1 Type A et C à 35,99 €
Valable jusqu'au 24 Octobre

Amazon fait une promotion sur la clé USB Sandisk Ultra Go 256 Go à double connectique USB 3.1 Type A et C qui passe à 35,99 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 45 €.


> Voir l'offre

Sujets relatifs
Association de 3 formules Excel 2010
Formule à créer dans Excel 2010
mot de passe excel 2010
Tri automatique Excel 2010
Onglets Excel 2010 ont disparus
Word 2010 publipostage Excel APPCRASH
Exporter contacts Outlook vers Excel avec Office 2010
Excel 2010 - zone noire à la sauvegarde
Excel 2010 et saut de page
Options dans une cellule Excel 2010
Plus de sujets relatifs à Automatisation Excel 2010
 > Tous les forums > Forum Bureautique