Ajouter des cellules vides

Bonsoir,

Oui bien sur, Excel sait tout faire ou presque, mais cette demande ne peut se traiter que par VBA si tu as quelques notions, mais tu as déjà annoncé que tu débutais, ou manuellement comme tu fais certainement

Une fonction, non ; mais une procédure, oui :
Tu saisis "X" en A1 et B1
Tu saisis la plage A1:Q1
Tu cliques sur la poignée (en bas à droite de Q1) et en laissant le bouton enfoncé, tu tires vers la droite le plus possible ; tu obtiens une répétition de 2 cellules avec "X" et de 15 cellules vides.
Tu n'as plus qu'à remplacer les "X" par les vraies données ...

Si tu nous as posé la question après avoir déjà rempli des dizaines de cellules à la suite avec des valeurs, autre procédure :
Les 2 premières valeurs étant en A1 et B1, et les 2 suivantes en C1:D1,
sélectionner les colonnes C à Q et faire Clic-droit / Insertion
Faire immédiatement Copier (ou ctrl+C), cliquer en T1 et sélectionner "Insérer les cellules copiées"
Recommencer en copiant T:AH et en l'insérant en AK1, etc.

Bonjour,

Un exemple de macro

Sub InsererLignes()
Dim Ligne As Long
Dim Col As Integer
    Col = 3
    Ligne = CInt(InputBox("Indiquez le numéro de ligne à traiter."))
    Do While Col <= Cells(Ligne, Columns.Count).End(xlToLeft).Column
       Cells(Ligne, Col).Resize(, 15).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
       Col = Col + 17
    Loop
End Sub

A+

Bonjour
une petite formule juste pour faire joujou:
si vos données sont en ligne 1 à partir de A1 jusqu'à A150
en ligne 2 en A2, reporter A1 ou =A1
en B2, ou sur une lignevide,à tirer sur la longueur voulue
=SI(MOD(COLONNE();17)=0;INDEX($A$1:$A$150;NB.SI($A$2:A2;"><")+1);"")
les valeurs de la ligne 1 vont se placer sur toutes les colonnes dont le N° est divisible par 17 (soit 15 cellules entre chaque)
si votre champ ne commence pas en colonne A, retirer le N° de la première colonne à 17 et changer le départ de INDEX
(par exemple si départ est en colonne B, écrire en C (MOD(COLONNE()-1;17)
=SI(MOD(COLONNE()-1;17)=0;INDEX($A$1:$A$150;NB.SI($B$2:A2;"><")+1);"")

vous pouvez ensuite copier cette ligne et faire un collage spécial valeur sur la ligne initiale pour supprimer les formules
effacer ensuite la ligne qui vous a servir.
crdlmnt

Bonjour,

Je ne pense pas que Hunter "débutant" soit à l'aise avec Excel et encore moins avec le VBA, mais bon
ce code insérera 15 lignes entre chaque données en prenant référence colonne A à partir de la ligne 3

Sub insere_15_lignes()
Dim I As Long
For I = [A65000].End(xlUp).Row To 3 Step -1
Rows(I).Resize(15).Insert
Next I
End Sub

ou en colonne
Sub insere_15_Colonnes()
Dim I As Long
For I = [AZ2].End(xlToLeft).Column To 2 Step -1
Columns(I).Resize(15).Insert
Next I
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.